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A L'ATTENTION 
DE NOS LECTEURS ! 


Ce numéro de CPC est un hors-série ne com- 
portant que des listings. Il paraît tous les deux 
mois dans les kiosques et il est offert aux abon- 
nés. Ne confondez pas avec le CPC mensuel ! 





AMSTRAD est une marque déposée. 

CPC est une revue mensuelle totalement indépen- 
dante d'AMSTRAD GB et D'AMSTRAD FRAN- 
CE. 


Les noms, prénoms et adresses de nos abonnés sont 
communiqués à nos services internes du groupe, 
ainsi qu'aux organismes liés contractuellement 
pour le routage. Les informations peuvent faire 
l'objet d'un droit d'accès et de rectification dans le 
cadre légal. 


Les articles et programmes que nous publions dans 
ce numéro bénéficient, pour une grande part, du 
droit d'auteur. De ce fait, ils ne peuvent être imi- 
tés, contrefaits, copiés par quelque procédé que ce 
soit, même partiellement sans l'autorisation écrite 
de la Société SORACOM et de l'auteur concemé. 
Les opinions exprimées n'engagent que la respon- 
sabilité de leurs auteurs. Les différents montages 
présentés ne peuvent être réalisés que dans un but 
privé ou scientifique mais non commercial. Ces ré- 
serves s'appliquent également aux logiciels publiés 
dans la revue. 


Dépôt légal à parution 
Distribué en Suisse par : 
SEMAPHORE - Tél. 022.54.11.95 





Thierry 
BALINT 





Agenda vous propose 
la gestion de votre 
emploi du temps. 
Combien de fois n'avez 
vous pas pensé : 
j'aurais dû marquer 
cela quelque part... 
Seulement, depuis que 
vous utilisez votre 
ordinateur, plus 
question de toucher un 
morceau de papier ! 
Alors voici la solution 
Pour ne rien perdre sur 
un CPC. 


LISTING 1 


10 ‘Le 01/12/87 - T.BALINT 

20 ‘Prog. “AGENDA.BAS" VERSION 2.0 
(Ko) 

30 CALL &BB4E 

40 CLS:MODE 2:DEFINT a-z 

50 BORDER 1:INK 0,1:INK 1,1 


60 MOVE 0,1:DRAW 0,398: DRAW 639,398 >YH 


:DRAW 639,1: DRAW 0,1 

70 MOVE 4,390: DRAW 636,390: DRAW 636 
,362:DRAN 4,562: DRAW 4,390: MOVE 4,8 
:DRAW 4,328: DRAW 138,328: DRAW 138,8 
:DRAW 4,8:MOVE 142,328: DRAW 636,328 
:DRAW 636,58: DRAW 142,58:DRAW 142,3 
28: MOVE 142,54: DRAW 636,54: DRAW 636 
,8:DRAW 142,8:DRAW 142,54 

80 LOCATE 2,2:PRINT"#+ # # À G E 
N D A #+#+ version 2,0 
“+CHR$(164)+" T.BALINT -Decembre 1 
987-" 

90 WINDOW#1,34,79,6,21:PAPER#1,0:PE 
N#1,1:WINDOW#2,2,15,7,24:WINDOW#S, 1 
9,79,23,24 

100 b=1:p=1:c=24:BORDER b: INK 0,p:1 
NK 1,c 

110 CLS#2:CLS#3:LOCATE 3,25: PRINT“ 
HIMEM: “:HIMEM: MOVE 16,0:DRAW 128,0 
120 DATA Couleur,Ecriture, Menu, Noti 
ce,Quitter 

130 RESTORE 120:n0=5 

140 G6OSUB 190 


?LA 





Un fichier généré par Agenda (.AGD) est consti- 
tué de trente et une fiches à seize champs pour cha- 
que journée. Le fichier représente ainsi un mois de 
données. 

Possibilité vous est offerte, en sauvegardant divers 
fichiers, d'établir votre Agenda annuel (ex: JAN- 
VIER.AGD, FEVRIER.ADG, etc). 

Dans le premier menu, vous devrez définir vos pré- 
férences : changer les couleurs de votre écran, déci- 
der du jeu de caractères que vous utiliserez parmi 
5 possibles ; ceci afin de personnaliser votre travail. 
C’est de là que vous accèderez au second menu qui 
sera le programme principal. 

Agenda est muni de toutes les directives et des mes- 
sages d’erreurs afin de progresser dans le program- 
me. 

Attention : pour les utilisateurs de 464, il faut enle- 
ver instruction CLEAR INPUT à la ligne 580 pour 
que tout fonctionne très bien. 


V 


150 GOSUB 240 
160 ON k GOSUB 340, 450, 540, 1640, 600 


170 GOTO 110 
a AFFICHAGE MENU -- 
190 tx$="":FOR j=1 TO no 

200 READ o$:tx$=tx$+LEFT$(0$,1) 
210 LOCATE#2, 4, j#2+8-no: PRINT#2, “- 
":0$ 

220 NEXT:RETURN 

230 REPONSE MENU -- 
240 tx$=UPPERS (tx$) : LE=LEN(tx$) 
250 PRINT#3," Reponse [ “; 

260 FOR i=1 TO 1t-1 

270 PRINT#S,MID$(tx$,1,1)5","3:NEXT 


LB 


GE 
?TZ 
>UD 


RH 


280 PRINT#3,RIGHTS$(tx$,1)5" 1 ";CHR 
$(154) ;CHR$ (243) ;" “3; CHR$ (207) 
290 r$="":WHILE r$="":r$=INKEYS$:WEN 
>HH | D 
300 r$=UPPERS (r$) :k=INSTR(tx$, r$) 
310 IF k=0 THEN PRINT CHR$ (7); :GOTO 
290 
320 RETURN 
330 ‘-—-------- COULEURS -- 
340 CLS#2:CLS#3:a$=" COULEURS": GOSU 
B 640:RESTORE 350 
350 DATA "- Bordure","- Papier"“,"- 
Crayon“, “- Retour" 
360 GOSUB 660 
370 PRINT#3," Reponse [ B,P,C,RETU 
RN ] “;CHR$ (154) ;CHR$ (243) ;" "3 CHRS$ 
(207) 


380 GOSUB 650 
IN 


V 
Ÿ 390 IF r$="B" THEN cl=b+1:60SUB 430 ) 


>HB 
AE 


>Y6 
>RK 
>RB 
>IH 
>6N 


>MY 
>RF 
>BA 
>YH 
>MM 
>DX 


MT 


?EB 


>CP 
>FQ 


IA 
RG 
>YX 
>FM 
>JA 
ER 


>JB 

















:b=cl: BORDER b 

400 IF r$="P" THEN cl=p+1:G0SUB 430 
:p=cl: INK 0,p 

410 IF ré="C" THEN ciec+l:G0GUB 430 PE 
:c=cl: INK 1,c 

420 IF r$=CHR$(13) THEN RETURN ELSE 
FOR t=0 TO SO:NEXT:60T0 380 

430 IF c1=27 THEN cl=O0:RETURN ELSE KE 
RETURN 


440 ECRITURES -- >RJ 
450 CLS#2:CLS#3:a$=" ECRITURE ":G0SU >vk 
B 640:RESTORE 460 

460 DATA “- Alpha 1","- Alpha 2", >KP 
“- Alpha 3","- Standard" 

470 G0SUB 660 JC 
480 PRINT#3," Reponse L 1,2,3,5 1 KR 
“sCHR$ (154); CHR$ (243) :" "3 CHR$ (207) 
490 GOSUB 650 JD 
900 IF r$="1" THEN 680 ?NN 
910 IF r$="2* THEN 1000 PV 
920 IF r$="3" THEN 1320 PC 
930 IF R$="S" THEN SYMBOL AFTER 256 >KV 
RETURN 

540 GOTO 490 1] 
DD: MENU -- TA 
960 CLS#2:CLS#3:PRINT#3," Veuillez >YY 
patientez" 

970 FOR t=1 TO 1000:NEXT RG 


980 CLEAR:CLEAR INPUT: CLS#3:CHAIN"A >XX 


GENDAI .BAS",70 

390 ‘--------- SOUS/PROGRAMMES -- TE 
600 CLS#2:CLS#3:PRINT#3," En etes- >BM 
vous sure) !!1" 

610 tx$="ON":GOSUB 290 QD 
620 IF k=i THEN 630 ELSE RETURN >YD 
630 CALL 0 >GH 
640 LOCATE#2,4,2:PRINT#2,a$:RETURN >DQ 
650 r$="":WHILE r$="":r$=UPPERS (INK >YN 
EY$) : WEND: RETURN 

660 FOR n=5 TO 11 STEP 2:READ a$:LO >WU 
CATE#2,4,n+1:PRINT#2, a$:NEXT: RETURN 
670 ‘---——--- —— REDEFINITION -—- >TD 


680 SYMBOL AFTER 256:SYMBOL AFTER 4 >EK 
7 

690 SYMBOL 48,30,33, 33,33, 33,33, 30: 
SYMBOL 49,4,12,4,4,4,4,14 

700 SYMBOL 50, 30,33, 2,4,8, 16,63: SYM >DN 
BOL 51,30,33,1,14,1,33,30 

710 SYMBOL 52,6, 10,18, 34,63, 2,2:SYM >DZ 
BOL 53,63,32, 62, 1,1,33, 30 

720 SYMBOL 54,4,8,16,62,33,33,30:SY CE 
MBOL 55,63,1,2,4,8, 16, 32 

T30 SYMBOL 56,30,33, 33, 30, 33, 33, 30: 
SYMBOL 57,30, 33,33,31,2,4,8 


>DJ 


VV 


F7 








740 SYMBOL 65,0, 28, 34,34, 62,34,34:5 

YMBOL 97,0, 28, 34,34, 62, 34,34 

750 SYMBOL 66,0, 124,34, 60,34,34,124 M 
:SYMEOL 98,0, 124, 34,60, 34, 34, 124 

760 SYMBOL 67,0, 28, 34, 32,32, 34,28:5 

YMBOL 99,0, 28, 34,32, 32, 34,28 

770 SYMBOL 68,0,124,34, 34,34, 34,124 
:SYMBOL 100,0, 124,34, 34, 34,34, 124 
780 SYMBOL 49,0, 42, 32, 60, 32, 32,62:5 

YMBOL_101,0,62,32, 60, 32, 32, 62 

790 SYMBOL 70,0, 62, 32, 60,32, 32,32:5 ) 

YMBOL_ 102, 0,62, 32, 60, 32, 32,32 

800 SYMBOL 71,0, 28,34, 32,4b, 34, 28:5 ) 

YMBOL 103,0, 28, 34, 32,46, 34,28 

810 SYMBOL 72,0,34,34,34,62,34,34:5 

YMEOL. 104,0, 34,34, 34,62, 34,34 

820 SYMBOL 73,0,62,8,8,8,8,62:SYMEO >2F 

L 105,0,62,8,8,8,8,62 

830 SYMEOL 74,0, 30,4, 4,4, 36, 24: SYMB 

OL 106,0,30,4,4,4,36,24 

840 SYMBOL 75,0,34,36,56,56, 36, 34:5 

YMBOL_ 107,0, 34,36, 56,56, 36, 34 

850 SYMBOL 76,0, 32,32, 32, 32,32, 62:5 

YMBOL. 108, 0, 32,32, 32,32, 32,62 

860 SYMEOL 77,0,34,54,42,34,34,34:S >HC 

YMBOL 109,0, 34,54, 42,34, 34,34 

870 SYMBOL 78,0, 34,50, 42,38,34,34:S >HW 

YMBOL 110,0, 34,50, 42,38, 34,34 

880 SYMBOL 79,0, 28,34, 34,34,34,28:S JB 

YMBOL. 111,0, 28,34, 34,34, 34,28 

890 SYMBOL 80,0, 60,34, 34,60,32,32:S >HC 

YMBOL 112,0,60,34, 34,60, 32,3 

900 SYMBOL 81,0, 28, 34,34, 42, 3b,2b:S HV 

YMBOL 113,0, 28,34, 34,42, 36, 26 

910 SYMBOL 82,0,40,34,34,60,36,34:5 DH 

YMBOL. 114,0, 60,34, 34, 60, 36,34 

920 SYMBOL 83,0, 28,34,48,6,34,28:5Y >FN 

MBOL 115,0,28, 34, 48,6, 34,28 

930 SYMBOL 84,0,42,8,8,8,8,8:SYMBOL >XF 
116,0,62,8,8,8,8,8 

940 SYMBOL 85,0, 34,34,34,34,34,28:S DHD 

YMBOL 117,0,34,34, 34,34, 34,28 

950 SYMBOL 86,0, 34,34,34,34,20,8:5Y DFT 

MBOL 118,0,34, 34, 34,34, 20,8 

960 SYMEOL 87,0,34,34,34,42,54,34:5 DHF 

YMBOL. 119,0, 34,34, 34,42, 54,34 

970 SYMBOL 88,0, 46, 36, 24,24, 36, b6:5 >JP 
YMBOL_ 120,0, 66,36, 24,24, 36,66 

980 SYMBOL 89,0, 66,36, 24, 16,32,64:S JG 

YMBOL. 121,0,66, 36, 24, 16, 32,64 

990 SYMBOL 90,0,62,4,8, 16,32, 62:SYM DPF 

BOL 122,0, 62, 4,8, 16, 32, 62:RETURN 

1000 SYMBOL AFTER 256:SYMBOL AFTER EH 

47 

1010 SYMBOL 48,30,33, 33,33, 33,33, 30 )EB 
:SYMBOL 49,4,12,4,4,4,4,14 

1020 SYMBOL 50, 30,33, 2,4,8, 16,63:SY )EQ 


BF 


JL 


HC 





V 
MBOL 51,30,33,1,14,1,35,30 


1030 SYMBOL 52,6, 10,18, 34,63, 2,2:5Y 
MBOL 53,43,32,62,1,1,33, 30 

1040 SYMBOL 54,4,8,16,62,33,33,30:5 
YMBOL 55,63,1,2,4,8, 16,32 

1050 SYMBOL 56,30,33,33, 30,33, 33, 30 
:SYMBOL 57,30,33,33,31,2,4,8 

1060 SYMBOL 65,124, 130, 194,254, 194, 
194,194: SYMBOL 97,124, 130, 194,254, 1 
94,194,194 

1070 SYMBOL 66,248, 122, 196,252, 194, 
194,252: SYMBOL. 98,248, 132, 196, 252, 1 
94,194, 252 

1080 SYMEOL 67,124,130,192,192,192, 
194,124:SYMBOL 99,124, 130, 192, 192, 1 
92,194,124 

1090 SYMBOL 68,248, 132, 194, 194,194, 
196,248: SYMBOL 100,248, 132, 194,194, 
194, 196,248 

1100 SYMBOL 69,254, 130, 192,248, 192, 
194,254: SYMEOL 101,254, 130, 192, 248, 
192, 194,254 

1110 SYMBOL 70,254, 130, 192, 248, 192, 
192,192:SYMBOL 102,254, 130,192, 248, 
192, 192, 192 

1120 SYMBOL 71,124,130,192, 206, 194, 
194,124: SYMBOL 103, 124, 130, 192, 206, 
194, 194,124 

1130 SYMBOL 72,130, 130, 194,254, 194, 
194,194:SYMBOL 104,130, 130, 194,254, 
194, 194,194 

1140 SYMBOL 73,124, 16,24, 24,24, 24,1 
24:SYMEOL 105, 124, 16,24, 24,24, 24, 12 
4 

1150 GVMBOL 74,124 


asus riyie 


12:SYMBOL 106, 126,8, 24,24, 24,152, 11 
2 

1160 SYMBOL 75,134, 140,216, 240, 216, 
204,198: SYMBOL 107,134, 140,216, 240, 
216,204, 198 

1170 SYMBOL 76, 128, 128, 192, 192, 192, 
194,254: SYMBOL 108, 128, 128, 192, 192, 
192, 194,254 


Ce: 
,8,24,24,24,152,1 


1180 SYMBOL 77,130, 198, 238, 250,210, 


194,194:SYMBOL 109, 130, 198, 238, 250, 
210, 194,194 
1190 SYMBOL 78,134, 194,226, 242,218, 
204,230: SYMBOL 110,134, 194,226, 242, 
218,206, 230 
1200 SYMBOL 79,124,130, 194,194, 194, 
226,124: SYMBOL 111,124, 130, 194,194, 
194,226, 124 


1210 SYMBOL 80,252, 130, 194,252, 192, ) 


192,224: SYMBOL 112,252, 130, 194,252, 
192, 192, 224 

1220 SYMBOL 81,124, 130, 194, 194,202, 
228,122:SYMBOL 113,124, 130, 194,194, 


122 
»EB | 1230 SYMBOL 82,252, 130, 194,252, 216, 
0 198: SYMBOL 114,252, 170, 194,292, 
>DF | 216,204, 198 
1240 SYMBOL 83, 60,98, 96, 60, 134,174, 
124:SYMBOL 115,40,98, 96,60, 134,174, 
124 
1250 SYMBOL 84,254, 146, 24,24,24,24, 
24:SYMBOL 116,254, 146, 24,24, 24, 24,2 
4 
1260 SYMBOL 85,130, 130,194, 194,194, 
224,124: SYMBOL 117,130, 130, 194,194, 
194,226, 124 
1270 SYMBOL 86,134, 130, 194,194, 100, 
56,16: SYMBOL 118,134,130,194,194, 10 
0,56, 16 
1280 SYMBOL 87,146, 146,218, 218,218, 
218,108: SYMBOL 119,146, 146,218, 218, 
218,218, 108 
1290 SYMBOL 88, 198, 108,54, 56, 108, 19 
8,130: SYMBOL 120,198, 108, 56,56, 108, 
198, 130 
1300 SYMBOL 89,120, 198, 108,56, 48, % 
,192:SYMBOL 121,130, 198, 108, 56, 48,9 
6,192 


#EU 


GC 


"4 


>F1 


A 


?FQ 


je. né 


FV 
254: SYMBOL 122,254, 134, 12, 24, 48,98, 
254:RETURN 

1320 SYMBOL AFTER 256:SYMBOL AFTER 
47 


FT 


Ce 


RH 


98,56: SYMBOL 49, 24,24, 24,0, 24, 24,24 


sRD | O:SYMBOL 51,248,6,6, 120,6,6, 248 


,12:SYMEOL 53, 60, 192, 192, 6,6, 120 





FX 


ms 


8,56: SYMBOL 55,248, 6,6, 0,6, 6, 6 


1370 SYMBOL 56,56, 198, 198,56, 198, 19 > 


ne 


gp | 8,56:SYMBOL 57,56, 198, 198,56, 6, 6, 12 
0 

1380 SYMBOL 45,126, 226, 226, 250, 238, 
226,226: SYMBOL 97, 126, 226, 226, 250, 2 
38, 226, 22b 


1390 SYMBOL 66,124,226,22b,252,226, ; 


226,252: SYMBOL 98,124,226, 226,252, 2 
26,22b,252 


1400 SYMBOL 67,56,230,230,224, 224,2 ; 


30,120:5YMBOL 99, 
,230, 120 

1410 SYMBOL 68, 252, 230, 230, 230, 230, 
230,252:SYMBOL 100, 252, 230, 230,230, 
230, 230, 252 

1420 SYMBOL 69,252, 226, 224, 248, 224, 
226,252: SYMBOL 101,252, 226, 224, 248, 
24 226,752 

IN 


96, 230, 220, 224,27 


?FK 





1310 SYMBOL 90,254, 134, 12, 24,48,98, 


1330 SYMBOL 48,56, 198, 206, 214, 230, 1 : 


1340 SYMBOL 50,120,6,6, 56,192, 192,6 > 
1350 SYMBOL 52, 204, 204, 204, 50, 12, 12 


1360 SYMBOL 54,40, 192, 192,56, 198,19 > 


FH 


#VG 


TJ 


FN 


*AQ 


>6D 


AH 


Se 


2YB 


FA 


ns 


4 


FH 





V/ 
1430 SYMBOL 70,126, 230, 238, 224, 248, Tue 
1630 SYMBOL 90,254, 198, 6, 28, 248,226 >K 


224,224: SYMBOL 102, 126,230, 238, 224, 
248, 224,22 
1440 SYMBOL 71,126, 230, 238, 224, 238, 
230,254: SYMEOL 103,126, 230, 238, 224, 
238, 230, 254 
1450 SYMBOL 72,230, 230,230, 246, 238, 
230,230: SYMBOL 104,230, 230, 230,246, 
238, 230, 230 


1460 SYMEOL 735,56,52,48,48,48,52,56 ; 


:SYMBOL 105, 56,52, 48,48, 48, 52,56 


1470 SYMBOL 74,60,102,6,6,6,230,254 } 


:SYMBOL 106,60, 102, 6,6, 6, 220, 254 


1480 SYMBOL 75,230, 230,236, 248,252, : 


1% 
£90s 


228,230: SYMBOL 107,230, 230, 
252, 228, 230 


248, 


1490 SYMBOL 76,224, 224, 224, 224,224, ; 


230,252: SYMBOL 108,224, 224, 224,224, 
224, 230, 252 

1500 SYMBOL 77,226, 226, 246, 254, 234, 
226, 226: SYMBOL 109,226, 226, 246, 254, 
234,226, 226 

1510 SYMBOL 78,230, 230, 
238,230:SYMBOL 110,230, 230,242, 250, 
254,238, 230 


1520 SYMBOL 79,254, 230, 226, 226,226, 


230,254: SYMBOL 111,254, 230, 226, 226, 
224, 230, 254 
1530 SYMBOL 80,254, 230, 226, 254, 224, 
224,224: SYMBOL 112,254, 230, 226,254, 
224,224, 224 
1540 SYMBOL 81,126, 230, 230, 230, 238, 
236,250: SYMBOL 113,126, 230, 230,230, 
238, 236, 250 
1550 SYMBOL 82, 124, 230, 230, 238, 252, 
228,230: SYMBOL 114,124, 230, 230,218, 
252, 228, 230 


1560 SYMBOL 83, 126, 230, 224, 124,30, 1 


98,252: SYMBOL 115, 126,230, 224, 124,3 
0,198, 252 

1570 SYMBOL 84,254, 254, 182, 48, 48,48 
,48:SYMEOL 116,254, 254, 182, 48, 48, 48 
,48 

1580 SYMBOL 85,230, 230, 226, 226, 226, 
226,254: SYMBOL 117,230, 230, 226, 226, 
226,22, 254 

1590 SYMBOL 86,230, 102,98, 98, 98,54, 
28:SYMBOL 118,230, 102,98, 98,98, 54, 2 
8 

1600 SYMBOL 87,194, 194, 198, 214,254, 
238,198: SYMBOL 119,194, 194, 198,214, 
254,238, 198 


1610 SYMBOL 88, 198, 198, 254,56, 254,1 } 


98,198: SYMBOL 120,198, 198, 254, 56, 25 
4,198, 198 

1620 SYMBOL 89, 198, 198, 254,56, 16, 16 
,16:SYMBOL 121,198, 198, 254,56, 16,16 


242,250,254, > 


FM 


>FU 


)FP 


?FE 


3FK 


>FF 


TC 


GT 


WE 





,254:SYMEOL 122,254, 198, 6, 28, 248, 22 
6,254: RETURN 


1650 CLS#2:CLS#3:PRINT#I," AGE 
NDA vous propose la gestion d 
e votre emploi temps . La 
aille d'un fichier est constit 
uee de 31 fiches a 16 champs cha 
cune.Le fichier represente donc un 
mois de donnees." 
1660 PRINT#1,"  Possibilite vous 
est offerte , en sauve- gardant 
plusieurs fichiers , d' etablir un 
agenda a l'annee. (JANVIER, FEVRIER 
etc..),." 
1670 PRINT#I," AGENDA est m 
uni d'un module reglage Cette op 
tion vous permet de definir les 
couleurs et de choisir votre ecri 
ture,creant ainsi une mise en page 
personnelle." 
1680 PRINT#I," Lors du chargement 
d'un fichier , il est recommand 
e de consulter le cataloque pour le 
bon fonctionnement du programme.L 
es fichiers crees se reconnaissent 
au suffixe (.AGD)." 
1690 CLS#3:PRINT#S, " 
.V.P:CALL &BB06:CLS#1: CLS#S 
1700 PRINT#1," RECOMMANDATIONS :" 


du 
ou 


1710 PRINT#1," Afin de bien struc 
turer le fichier, il est souhaitab 
le d ‘entrer les donnees dans 
l'ordre. Pour cela, un index est 
numerote de 1 a 31 (du ler au 3iem 
e jour)." 
1720 PRINT#1," Cette index servi 
ra de critere de recher- che lors 
que vous voudrez VOIR- MODIFIER- 
SUPPRIMER une fiche. Exemple:" 
1730 PRINT#1," (1° index 3 correspo 
ndra au 3 du mois de...)" 
1740 PRINT#1:PRINT#i," AGEND 
À est muni, en outre, de toutes 1 
es directives et messages d'erreurs 
afin de progresser dans le progra 
mme. “ 
1750 PRINT#1:PRINT#I," La touche 
virgule (,) est a proscrire 1 
ors de l'edition du fichier." 
1760 CLS#3:PRINT#S, “ 
.V.P pour le retour MENU":CALL BB 
06 


1770 CLS#1:CLS#3: RETURN 
IN 





[= 


Une touche 5 à 


?BC 


T6 


TA 


>EF 


A 


XL 


SX] 


)TQ 


LT 


Une touche S 67 








LISTING 2 


15 ‘Le 05/12/87 - T.BALINT 
20 ‘Prog. “AGENDAI.BAS" VERSION 2. 
QG (%o) LISTING 2 


30 CLS#0:PRINT"'Pas d'acces direct d ; 


“ 


ans ce programme ... 


40 PRINT"Je vous renvoie au program ? 


me <AGENDA .BAG>" 


90 LOCATE 20,6:PRINT" Veuillez patie ; 


nter !!1* 


60 FOR x=0 TO 1500:NEXT:CHAIN"AGEND 


A .BAS" 

70 DIM ag$(31,16):GOSUB 2170 

80 OPENOUT"b":MEMORY HIMEM-1:CLOSEO 
UT:DEFINT a-z 


90 WINDOW#1,34,79,6,21:PAPER#1, 1:PE > 


N#1,0:CLS#1:WINDOW#2,2, 16, 7,24: WIND 

OH#3,19,79,23,24 

100 LOCATE 2,4:PRINT CHR$(24);" 
MENU “sLOCATE 19,4:PRINT" No 
“:LOCATE 24,4:PRINT" Champs “:LOCA 

TE 35,4:PRINT* Plannin 

g journee "4: CHR$ (24) 

119 GOTO 180 

120 ” MESSAGES CLIGNOTANTS -- 


130 CLSK3:FOR x=1 TO 3:LOCATE#3,3, 1 


:PRINT#3,er$:GOSUB 160 


140 LOCATE#S, 3, 1: PRINT#S,STRINGS (49 > 


," "):60SUB 160: NEXT 


150 FOR t=1 TO 3OO0:NEXT:CLS#3:RETUR à 


N . 

160 FOR t=1 TO 1000:NEXT:RETURN 
MENU PRINCIPAL -- 
180 CLS#1:CLS#5 


190 DATA "A -charger","B -sauvegard } 


er",,"C -entrer","D -modifier","E - 
supprimer","F -voir","G -quitter",, 
"H -catalogue","I -vider","J -effac 
er",, "RETURN -retour","TAB -info 
c" 

200 RESTORE 190:F0R n=0 TO 14:READ 
a$:LOCATE#2, 1,n+1:PRINT#2, a$:NEXT 


210 LOCATE 3,25:PRINT" HIMEM: ";HIME : 


M:MOVE 16,0:DRAM 128,0 

220 GOSUB 390:PRINT CHR$(7); 
230 PRINT#3," Votre choix ?" 
240 a$=INKEV$: IF a$="" THEN 240 
250 IF INKEY(69)=0 THEN 640 
260 IF INKEY(54)=0 THEN 760 
270 IF INKEY(62)=0 THEN 890 
280 IF INKEY(61)=0 THEN 1060 
290 IF INKEY(58)=0 THEN 1250 
300 IF INKEV(53)=0 THEN 1440 
310 IF INKEY(52)=0 THEN 1610 


LB 


>YH 
>RD 


ec 
Œ 


m 
n 








320 IF INKEY(44)=0 THEN 1700 


330 IF INKEY(35)=0 THEN 1880 >WN 

340 IF INKEY(45)=0 THEN 1980 >VR 

350 IF INKEY(18)=0 OR INKEY(6)=0 TH. >HX 

EN 2120 

360 IF INKEY(6B)=0 THEN 2400 JL 

370 GOTO 240 IC 

380 ‘----- MENU FICHIER — TB 

390 DATA " 1 # Index :"," 2 ?NR 

Jour :",“3 Date :"," 4 Bh- 
9h:"," 5 9h - 10h:"," 6 10h - 

dih:","7 ih-12h:"," 8 12h - 1 

3h:"," 9 {3h - 14h:","10 {4h - i5 

h:","11 15h - i6h:" 

400 DATA “12 16h - 17h:","13 17h >1Y 

- iëhs5,"i4 jh - ivh:","i5 1% - 
20h:","16 Notes :" 

410 RESTORE 390:FOR nz1 TO 16:READ ?YE 

a$:LOCATE 20,n+5:PRINT a$:NEXT:RETU 

RN 

420 ‘----- SOUS/PROGRAMMES -- RG 

430 er$="Pas de donnees en memoire" >GM 

:60SUB 130:RETURN 

440 CLS#3: INPUT#S," Jour (ler €=> >YK 

3ieme) “:index$ 

450 bcl=i FD 

460 IF ag$(bcl,i)=index$ THEN RETUR ?EJ 

N 

470 IF bcléctr THEN bcl=bcl+i:G0TO >FP 

460 

480 er$=" Journee non repertoriee":6 >FJ 

OSUB 130:G0T0 110 

490 GOSUB 510:G60T0 650 >0Q 

500 GOSUB 510:60T0 780 QL 

510 er$="8 caracteres seulement !!" >FG 

:GOSUB 130:RETURN 

920 CLS#3:PRINT#3," Introduire dis ?PV 


quette, puis RETURN 


530 GOSUB 620 >HF 
540 IF r$=CHR$(13) THEN 560 TD 
550 G6OSUB 580:60T0 530 > 
960 RETURN 16 


570 PRINT#3," Reponse [ RETURN,5,P ?RN 
1 1 “;CHRS (154) ;CHR$ (243); % “5 CHRS 
(207) : RETURN 

580 IF r$<)"0" OR r$C>"N" THEN PRIN >W 
T CHR$(7) ; : RETURN 

590 60SUB 600:60T0 110 >06 
600 er$="Retour MENU":60SUB 130:RET >KT 
URN 

610 CLS#3:WINDOW#O, 20, 79,6,21:CLS#0 DEF 
:60SUB 1870: CAT:RETURN 

620 r$="":WHILE r$="":r$=UPPERS (INK DVK 


EY$) : WEND: RETURN 

630 ‘---—- CHARGER —- >RK 
640 GO0SUB 520:G0SUB 610 )RB 
650 INPUT#3," Nom du fichier a cha >YL 





À 


>VC | rger “:fic$ 


bb0 IF fic$="" THEN 2100 >QD 
670 IF LEN(Fic$)>B THEN 490 >UG 
680 OPENIN fic$+".AGD" >0Q 


690 INPUT#9,ctr )LY 
700 FOR ii=i TO ctr >MP 
710 FOR i2=1 TO 16 >LN 
720 INPUT#9,ag$(ii, 12) >0M 
730 NEXT:NEXT:CLOSEIN >TQ 
740 er$="Chargement termine":60SUB >ZH 


130:60T0 2100 

750 ‘ SAUVEGARDER -- 

760 IF ctr=0 THEN GOSUB 430:G0T0 11 
0 

770 GOSUB 520:G0SUB 610 

780 INPUT#3," Nom du fichier a sau 
vegarder ";fic$ 


TC 
CV 


RF 
>EH 


190 IF fic$="" THEN 2100 >0H 
800 IF LEN(fic$)>8 THEN 500 UT 
810 OPENOUT fic$+".AGD" >RF 
820 PRINT#9,ctr LP 
850 FOR ii=1 TO ctr >MU 
840 FOR i2=1 TO 16 LT 
850 PRINT#9,ag$ (11,12) >ON 
860 NEXT:NEXT : CLOGEOUT >UQ 
870 er$="Sauvegarde terminee":G0SUB >AZ 
130:60T0 2100 

880 ‘----- ENTRER -- TG 
890 CLS#3:PRINT CHR$ (7); >TQ 
900 ctr=ctr+1:F0R i=i TO 16 > 
910 INPUT#1," ",ag$(ctr,i):NEXT >26 
920 CLS#3:PRINT#3," Donnees correc >BR 
tes ? [ O/N 1 " 

930 GOSUB 620 >HK 
940 IF r$="0" THEN 980 >NH 
950 IF r$="N" THEN 970 >NG 
960 GOSUB 580:60T0 930 >QB 
970 ctr=ctr-1:CLS#1:CLS#3:G0T0 900 >DD 
980 CLS#3:G0SUB 150:PRINT#3," D'au >MA 
tres entrees ? [ O/N 1 

990 GOSUB 620 >JF 
1000 IF r$="0" THEN 1030 >@P 
1010 IF r$="N" THEN 1040 >Qq 
1020 GO0SUB 580:G0TD 990 >RK 
1030 CLS#1:CLS#3:G0TD 900 ?TG 
1040 CLS#1:G0T0 110 >MB 
1050 ‘-———- MODIFIER -- >XJ 
1060 IF ctr=0 THEN GOSUB 430:60T0 1 >DQ 


10 
1070 CLS#2:CLS#3:LOCATE#2,4,2:PRINT >VD 
#2," MODIFIER" 

1080 DATA “- Retour“,"- Suivant","- >QF 
Precedent","- Modifier" 

1090 RESTORE 1080:F0R n=4 TO 10 STE >DF 
P 2:READ a$:LOCATE#2,4,n+2:PRINT#2, 
a$:NEXT 

1100 GOSUB 570 





>PD ll IF index$="" THEN 590 
IN 


1110 ptr=i >0B 
1120 FOR i=1 TO 16:PRINT#i," “;ag$( >PD 
ptr,i):NEXT 


1130 r$=UPPERS(INKEYS$): IF r$="" THE HV 
N 1130 

1140 IF r$=CHR$(13) THEN CLS#2:CLS# LC 
3:60T0 110 

1150 IF r$="S" AND ptr<ctr THEN ptr >BH 
=ptr+1:CLS#1:G0T0 1120 

1160 IF r$="P" AND ptr>1 THEN ptr=p 
tr-1:CL5#1:G0T0 1120 

1170 IF r$="M" THEN 1190 


IL 


>QD 


1180 IF r$OCHR$(13) OR r$@)"S" DR FF 
r$C>"P" OR r$C"M" THEN PRINT CHR$( 
7);:60T0 1130 

1190 CLS#3: INPUT#3," No du champ(i ?RT 
-16) "snar 

1200 IF nmr>0 AND nmr<i7 THEN 1220 ZA 
1210 er$="No de i a 16 s.v.p":G0SÙ >V] 
B 130:60T0 1190 

1220 CLS#3:INPUT#S," Contenu :";ag TX 
$(ptr,nar) 

1230 CLS#3:CLS#1:G0SUB 570:60T0 112 >DD 
0 

1240 ‘----- SUPPRIMER -- >XK 


1250 IF ctr=0 THEN GOSUB 430:G0T0 1 >DR 
10 


1260 CLS#3: INPUT#3," Index (jour): ?RY 
“sindex$ 

1270 IF index$="" THEN 590 ?TY 
1280 bcl=1 MC 


1290 IF ag$(bcl,1)=index$ THEN 1320 >BP 


1300 IF bcl<ctr THEN bcl=bcl+1:G60T0 >HB 
1290 

1310 er$=" Journee non repertoriee": >62 
GOSUB 130:G0T0 110 

1320 FOR i=1 TO 16:PRINT#1," "s;ag$( PQ 
bcl,i):NEXT 

1330 CLS#3:PRINTHS, " 
te journee ? © O/N ] “ 


Supprimer cet ?NM 


1340 GOSUB 620 PF 
1350 IF r$="0" THEN 1390 >0H 
1360 IF r$="N" THEN 1380 06 
1370 GOSUB 580:60T0 1340 RL 
iS80 CLS#i:G0T0 110 >NA 
1390 FOR ii=bcl TO ctr-i )RA 
1400 FOR i2=1 TO 16 LD 
1410 ag$(ii,i2)=ag$(il+i,i2) >VP 


1420 NEXT:NEXT:ctr=ctr-1:CLS#1:G0TO >J6” 


SORTIR -- »YA 
1440 IF ctr=0 THEN GOSUB 430:60T0 1 >DT 
10 


1450 CLS#3: INPUTHS, * 
Jiene) “;index$ 


Jour (ler <=) >2ZK 


)TZ 





1470 bcl=i >MD 
1480 IF ag$(bcl,i)=index$ THEN 1510 >BR 


1490 IF bcléctr THEN bcl=bcl+1:G0T0 >HN 
1480 

1500 er$="Journee non repertoriee": >GA 
GOSUB 130:60T0 110 

1510 FOR i=1 TO 16:PRINT#1," "sag$( >PR 

bel, i):NEXT 

1520 CLS#3:PRINT#S, “ 
rnee ? [ O/N ] 


Une autre jou >CD 


1530 GOSUB 620 >PG 
1540 IF r$="0" THEN 1570 >QJ 
1550 IF r$="N" THEN 1580 >GK 
1560 GOSUB 580:60T0 1530 ?RN 
1570 CLS#3:60T0 1590 ?NR 
1590 CLS#1:G0T0 110 ?NC 
1590 GOSUB 440:CLS#1:G0T0 1510 3YE 
1600 ‘---—-- QUITTER -- >XK 
1610 IF ctr=0 THEN 1680 >QC 
1620 CLS#S:PRINT#3," Donnees sauve GT 
gardees ? [ O/N ]" 

1630 GOSUB 620 >PH 
1640 IF r$="0" THEN 1680 >" 
1650 IF r$="N" THEN 1670 ?QL 
1660 GOSUB 580:G60T0 1430 RQ 
1670 GOTO 110 >FB 
1680 CALL 0 >PA 
1690 ‘----- CATALOGUE -- >YJ 


1700 CLS#2:CLS#3: WINDOW#O, 20,79,6,2 >EJ 
1:CLS#0:LOCATE#2, 4, 2:PRINT#2, “CATAL 
OGUE" 

1710 DATA “- Supprimer","- changer >ZX 
Noa" ,"- Catalogue","- Retour" 

1720 RESTORE 1710:F0R n=4 TO 10 STE >DD 
P 2:READ a$:LOCATE#2,2,n+2:PRINT#2, 
a$:NEXT 

1730 GOSUB 1870:CAT >NX 
1740 PRINT#3," Reponse L S,N,C,RET >FK 
URN 1 "5 CHR$ (194) ;CHR$ (243) 5" "5 CHR 
$(207) 

1750 r$=UPPERS$(INKEY$):1F r$="" THE >HM 
N 1750 

1760 IF r$="S" THEN 1810 >@P 
1770 IF r$="N" THEN 1830 >0M 
1780 IF r$="C" THEN CLS#0:CLS#3:60S >NX 
UB 1870:CAT 

1790 IF r$=CHR$(13) THEN 1860 JL 
1800 IF r$CCHR$(13) DR r$<>"S" OR >EH 
r$O"N" OR r$C"C" THEN PRINT CHR$( 
7);:60T0 1740 

1810 CLS#3: INPUT#S," Nom du fichie 
r (?.A6D) a supprimer ";fic$ 
1820 a$=fic$+".AGD": ERA, @a$: CLS#3: 
GOTO 1740 

1830 CLS#3:INPUT#3," Nom du fichie 
r (?.A6D) a renonmer ";fic$ 


V 
1840 CLS#3: INPUT#S, " 





sficn$ 
1850 a$=fic$+".AGD":ai$=ficn$+", AGD ?NE 
“2 1REN, @a1$, @a$:CLS#3:GOTO 1740 

1860 CLS#2:CLS#0:WINDOW#O, 1,80,1,25 >MU 
:60T0 110 

1870 PRINT#0, "Les fichiers AGENDA s >YD 


e reconnaissent au suffixe (.AGD)" 
:RETURN 
1880 ‘---—- VIDER —— >vK 


1890 IF ctr=0 THEN GOSUB 430:G0T0 1 >DC 
10 
1900 CLS#3:PRINT#3," ATTENTION ce >QD 


tte option vide le contenu memoire 
RER 


1910 GOSUB 2090 >XE 
1920 GOSUB 620 >PK 
1930 IF r$="0" THEN 1960 >0Q 
1940 IF r$="N" THEN 1970 OR 
1950 GOSUB 580:60T0 1920 )RV 


1960 ERASE ag$,erreur$:CLEAR:G0TO 7 FE 
0 

1970 GOTD 110 ?FE 
?1A 
1990 CLS#2:CLS#3:WINDOW#O, 20,79,6,2 >LK 
1:CLS#0 

2000 GOSUB 1870: CAT >" 
2010 PRINT#3," Vous avez demandez >TN 


l'effacement des fichiers ( ? .BAK) 
118 


2020 GOSUB 2090 ?WH 
2030 G60SUB 620 PC 
2040 IF r$="0" THEN 2070 >0A 
2050 IF r$="N" THEN 2080 ?QB 
2060 GOSUB 580:60T0 2030 ?RE 
2070 a$="x,BAK": ERA, @a$:G0TO 2100 >BN 
2080 GOTD 2100 >MA 


2090 PRINT#3," Confirmez par € 0, >QY 
N 1] "sCHR$ (154); CHR$ (243); " “; CHR ( 
207) : RETURN 

2100 CLS#0:WINDOW#O, 1,80,1,25:6070 FT 
110 

RETOUR -- }X6 
2120 CLS#2:CLS#3:WINDOW#0, 20, 79,6,2 >KD 
1: CLS#0 

2130 PRINT#3," 
precedent !!!" | 
2140 FOR x=0 TD 2000:NEXT:CLS#3 >YR 
2150 WINDOW#0, 1,80,1,25:CHAIN"AGEND >PP 


Je retourne au MENU ?EF 


A .BAS",90 
260 ‘— TRAITEMENT ERREURS --  >YB 
2170 ON ERROR GOTO 2350 >Q6 


2180 DIM erreur$ (32) )PE 
2190 FOR i=1 TO 32:READ erreur$(i): GE 
NEXT 

2200 DATA Next attendu,Erreur de sy >66 
ntaxe,Return attendu,Pas assez de d 
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V 
Nouveau nom “ mc 








onnees 

2210 DATA Valeur ou argument incorr >QW 
ect,Debordement dans un calcul 

2220 DATA Depassement de la capacit >YL 
e memoire, Numero de ligne inexistan 
t 

2230 DATA Indice de tableau hors li 
aites,Redimensionnement de tableau 
2240 DATA Division par zero,Command 
e invalide en mode direct 

2250 DATA Affectation d'une chaine 
a une variable numerique ou inverse 


2260 DATA L'espace reserve aux chai : 
nes deborde,Chaine trop longue 

2270 DATA Chain trop compliquee, CON >TY 
T impossible,Fonction inconnue 

2280 DATA Commande RESUME absente, C 
omaande RESUME inattendue 

2290 DATA Commande directe trouvee 
sur le chargement d'un programme 
2300 DATA Signe d'operation absent, 
Ligne trop longue,Fin de fichier re 

ncontree 

2310 DATA Erreur dans le type de fi ?BE 

chier, NEXT manquant, Fichier deja ou 
vert 

2320 DATA Commande inconnue, WEND ma 
nquant ,WEND inattendu 

2330 DATA Fichier non ouvert, Lectur 
e/ecriture interrompue 

2340 RETURN 

2350 CLS#0:CLS#3: PRINT#S, " 
“serreur$(ERR);" ligne“; 
2360 PRINT"Le fichier demande n'‘exi 
ste pas !!!" 

2370 PRINT“Relancez le programme pa 
r RUN" 

2380 PRINT :CLEAR:END } 
239 ‘ INFOS —- 
2400 CLS#2:CLS#3:LOCATE 5, 6: PRINT"# 2 
INFOS #* 

2410 PRINT#2,"La touche (,)est st 
rictementinterdite lorsd' une sais 
ie." 

2420 PRINT#2,"L'ecriture, unefois c 
hoisie,nepeut plus etremodifiee." 
2430 PRINT#2,"Ne pas depasser3i en 
registre-ments (capacitefichier .AG 

D)." 

2440 PRINT#2,"Ne jamais edit-er un >W 

e  fichevide ; vousperdriez 
en-registrenent." 

2450 PRINT#3," Une touche S.V.P“: 2RB 
CALL &BB06 

2460 LOCATE 5,6:PRINT SPACES(9):CLS >PM 
#2:G0T0 180 


INFO : 


WG 


>QL 


'WB 





Les enfants aimant 
illustrer leurs ‘‘œuvres”? 
(même très simples) par 
un titre bien cadré et de 
préférence en couleur, je 
leur ai ‘‘fabriqué”’ un 
utilitaire que j'ai appelé 
“TITREUR” mais qui ne 
peut travailler qu'avec 
l’aide de ‘‘LETTRES””? 
qu'ils doivent compléter 
eux-mêmes, aidés par 
“R°”° (dessin de la lettre 
R). 

L'utilisation de ces 
programmes n'étant pas 
limitée aux seuls élèves, 
une description sommaire 
est nécessaire. 


“TITREUR’’ est un utilitaire 
auto-explicatif qui permet de 
composer un TITRE (ou 1 ligne 
de texte), de le mettre en PAGE 
(changement de la taille des let- 
tres, décalage horizontal et ver- 
tical) et de modifier les COU- 
LEURS du bord, du fond et du 
texte (en modes 1 et 2). 

La sauvegarde de la composition 
s’effectue par copie d'ECRAN 
(17 Ko). Il est également possi- 
ble, grâce aux renseignements 
fournis de modifier ‘‘LET- 
TRES” pour obtenir un court 
programme BASIC qui évite 
parfois de... repartir à zéro ! 
“LETTRES” n’utilisant pas les 
caractères standards du CPC 





| 


Roger PETIT 


demande de créer ses propres 
lettres (ou dessins). A titre 
d’exemples sont proposées des 
lettres, simples (1) ou plus com- 
plexes (R) qu’il est possible de 
modifier : elles sont contenues 
dans un carré de 20 pixels de 
côté (sauf I=4x20) et leur 
‘“épaisseur”” est de 4 pixels ; le 
début prévoit le décalage verti- 
cal (d) et la fin le décalage hori- 
zontal (e) entre chaque lettre 
(voir ‘‘R’’). 

Les seules autres variables à con- 
naître sont ‘‘p” (n° de stylo) ‘‘l’? 
et ‘‘h”” (coefficients multiplica- 
tifs modifiant la largeur et la 
hauteur des lettres). Le coloriage 
utilise bien sûr la fonction FILL. 
Il est possible d’utiliser des obli- 
ques mais attention aux COnCOr- 
dances de coordonnées en mode 
1. 


Avec des élèves, il faut donc tra- 
cer une matrice quadrillée (for- 
mat au choix) dans laquelle ils 
dessineront puis indiqueront les 
coordonnées des points de chan- 
gement de direction (leur pro- 
gramme de mathématiques pré- 
voit les repérages dans le plan). 
“R’’ est un court programme 
(appelé par RUN ‘‘R’°) expli- 
quant un dessin de la lettre R 
avec une remarque (REM) sur 
chaque étape de sa ‘‘fabrica- 
tion”. Une sortie du listing sur 
imprimante est souvent suffisan- 
te. 


NB : - Pour une utilisation sur 
nanoréseau, il est bon d’écrire 
un court programme d’appel de 
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“TITREUR’’ puis du pro- 
gramme de lettres de chaque 
élève (avec le nom choisi par 
eux). 

- À cause de l’inversion vidéo, 
éviter d’utiliser la touche ESC 
ou la neutraliser (après une 1re 
sauvegarde !) avec ON BREAK 
CONT (en début de 
programme). 

- Pour une utilisation indivi- 
duelle, en cas de changement de 
nom du programme ‘‘LET- 
TRES”’, modifier la ligne 10 de 
“TITREUR’’. 


10 nom$="LETTRES" ; 
20 CHAIN MERGE nom$.45,DELETE 25 16 
36 'ATTENTION...la ligne 2ù se detr LC 
uit apres le premier ‘RUN° 

30 CLS:MODE 1: BORDER O0: INE 0,3: INE 
1,24:INE 2,26:INE 3,18 

50 PEN JiLOCATE 14,2:FRINT'T ITR 3JL 
EUR" 


60 LOCATE 17,4: PRINT" # # #" WF 
70 PEN Z:LOCATE 8.G9:FRINT'COMPOSITI JC 
ON " 

80 LOCATE 16.14:PRINT'MISE EN PAGE" EH 
90 LOCATE 24,19:PRINT "COLORIAGE" BE 


109 PEN 1:LOCATE 12,24:PRINT'Fresse 1 
r une Touche" 


110 a$=INKEYS:IF a$=""THEN 110 SXC 
120 CLS:LOCATE 8.4:PRINT'Entrer (en 66 
une seule fois)" 

130 LOCATE 14,6:PRINT'le MOT choisi JF 
140 GOSUB 4010 FE 
150 LOCATE 26,1B:FRINT CHR$ (18) ?YE 
160 PEN 1:LOCATE 12,18: LINE INPUT" :HM 
TITRE = "té: té$=UPPERS(t$) 

170 IF LEN(E$)£1 THEN 150 RL 
i8û aa=0 ?WE 
190 FOR i=i T0 LEN(t$) >FA 
200 u$=MID#(t$,1,1) ?ML 


210 u=ASC (u$) 


aNTaLllL 


AV 1H): 





RE 


CR 


836 IF u=é9 Of u=75 OR u=85 OR u=64 
SS THEN aa=aa+i 
£aLENCES) THEN 150 
PRINT NSTERULC 





” SPAS Sn Com ËE su 
280 PEN GiLOCATE 2,9:PRINT'REN IST 

+ TITÈEC ü 

ION OU TITRE 

270 PEN L:PRINT:PRINT TARCIQIMIT to à 


LOCATE 14, 4:PRINT" 


uches suffisent)" 





Gi: 


: a : 
a] ; | sr TA 116 ë: 
PEN .PRI NT: s:PEN 2: PRINT" ré 


tree des Choix " 





} FEN 3:L0C :PRINT'SGUVEGÀ : 
RDE :"::PEN 2:FRINT'Indications ult 
erieures" 

345 PEN I:LOCATE 17,24: PRINT"Presse à 








25i'et des Donnees 


r une Touche" 


3530 





280 
:d= 


4 dl 
à Me 


a$=INFEYS: IF aÿ=" 


NH ERT 





ÉAREE ECRITURE 
h= j :]}= 1 : 


Gib=û: 


EU 


= 


CHERE RE € # El 








390 CLS: tÉ=UPPERS (té): titéeté 

AGG MODE ms IE O,#:INE Ds INE Cr: 
ECRCER E 

410 ORIGIN K.Y :16 
420 FOR izi TO LENCHiItH) FRA 
45 Bé=MID(titÉ 1.1) FU 
440 GE=ASC (EE: :RE 
A0 a=bb-64 ëTE 
4ëG IF afl OR a26 THEN a=27 UE 
470 GOSUR 406û QC 
48û NEXT EH 
496 GOTO 5i0 #1F 
SOC END 3RJ 
DID ‘O### BIGUILLAGE #####H EG 
deÿ IF m=£ AND g=5ù THEN GOTO 615 3XF 
Sa IF m=2 AND g={ THEN 6070 1780 YF 
g40 IF m=2 AND g=2 THEN GOTO 2430 VA 
S90 IF m=£ AND g=3 THEN GOTO 2460 YF 
dôÛ0 IF m=2 AND g=4 THEN GOTO 2540 YL 
970 IF m=l AND a=0 THEN GOTO 1230 :YX 
280 IF mel AND g=i THEN GOTO 2340  :YC 
990 IF m=l AND g=3 THEN GOTO 2370 5VJ 
&ü0 IF m=i AND g=4 THEN GOTO 254G :YE 
&iÿ ‘ # MÉSQUE ECRÔN (MISE EN FAGE) FH 
629 LOCÂTE 1,2? +ÂÀ 
























63û FOR 121 TD SO:PRINT CHR$(1S4jsr 2GM| RINTHI." e= "USING "#hfh':e:G0TO 10 

NEXT 2 

é45 PRINT TABIZ) "Hauteur": PRINT TA 2ME | BG IF 2=55 THEN PRINTHS,CHRS (24): UD 

Bi 10) CHA$ (149): PRINT TAE(2)" Larq RINT#4, X2'":UGING "H###': (:G0TO 10 
2:PRINT TAE(20) CHR$:149)::PRIN 7ù 

à as 'Espace"::FRINT TAR(TO) CH B75 IF 2=45 THEN PRINT#S.CHR# (24) :P UF 

R#{149): RINTHS," VE: USING "H#H#":Y:GOTO 11 

bSû PRINT TABE32) "Origine "::FRINT T HD | 20 

BRIA4G) CHRS(145):: PRINT TAB (427) "Ori B9G IF 2255 THEN PRINTHG,CHRSISQj:P WE 

aine":: PRINT TAB(SGICHRS (149): :FRIN RINT#6." d=":USING “#HH#":9:G0TO 11 

T TAB{EL) "Decaiage"::FRINT TAB(SGIC 7 

HR$(149)::PRINT TAB(62)"Couleur'sse 890 IF 2=65 THEN m=l:coui=1:6070 39 :DB 

RINT TAB(7O)CHR#(149):: PRINT TARIF @ 

Couleur 355 IF 2275 THEN m=£:a=l:p=G: 6070 3 :DW 

bbû FOR izj TO BG:PRINT CHR#(1S4jse GC | 5Ù 

NEXT 510 © « MODIFICATION DES VARIABLE :TA 

670 PRINT TAB(10) rs T :G5|S +* 

TAR(20) CHR$ (1495: :PRINT i CH J2G a$=INKEYS PE 

R${149):2PRINT TAR(4U .. 145 F 726 IF a$=CHR$ (245) } AND Ri9,6 THEN RE 

RINT TAB(SO) CHR#(149)::PRINT TABIE h=h+0, 5: PRINT," he": UGING "HA fe 

JICHRE 1493: : PRINT TAE(6S) "Mode 1": h 

LERINT TABI7O)CHRS (14932: FRINT TGB( 940 IF a$=CHh$(242) AND h:0.6 THEN RW 

73;"Mode 2° R=h-û, SiPRINT#IS," HU: USING "HE ge 

680 WINDOW #1,1,7,25,25:WINDOW #2. :FWlh 


1,19,25,25:NINDOW #3,21,29,25,2E:bl 
NOCW #4,51,39,25.25:WINDOW 45.41.49 
.25,25:WINDOW #6,51,5 KINDOK 
#7.1.80.31,21 


59,25,25: 
sédeide 


69 ‘ #wke RAPPEL DES VARIABLES #4 2TF 
#4 
700 PRINT#I," he" USING SH# #ch Ü 


À 
710 PRINTHZ." IS": UGING "##,#"il #1E 


720 PRINT#S." e=": USING "#hfh'ie 
720 FRINT#A," Ke": USING 'HW#'il ZA 


740 PRINTAS." Y=:USING Hi Y SIT 


780 PRINTHG." d="s USING “He d ÿ1J 
F6Ù ‘ ###+ SELECTION DES FENETRES # TD 
#44 
770 CLE#7:LOCATE #7,2.1:PRINT#7, CH GET 
R$(241; 

780 af=INKEYS PJ 
730 IF af=CHR$(243) AND 266 THEN z DC 
22410: CLS#7:LOCATE #7,2,1:PRINTH7, 


CHR$ 241) 

BG0 IF a$=CHR$(747; AND 2: 
=2-1G:CLS#7:LOCATE #7,z,1: 
CHR$ 1241) 

819 IF a$=CHR$i{3} THEN 
820 GOTO 78û AE 
830 IF 2=5 THEN PRINT#1.CHR$(24):FR TE 
INT#I," HE" USING "H#.#'ih :GOTO 97 

û 


14 THEN 2 DPF 
FRINTH7. 


836 >TK 


B40 IF 2=15 THEN FRINTHZ,CHR#(24):F UC 
RINT#2." 12": USING "##.#":1:G0TO 97 

( 

850 IF 2=25 THEN PRINTHI,CHRS(24):P >Uy 


9 





J5û IF a$=CHR# (11) 
$(24):6070 356 


THEN BRINTHI,CHR 5RY 


Séi GOTO 529 AC 
975 a$=iNEEY$ PE 
380 IF a$=CHR$ (243: AND 129,6 THEN RE 
1=i+0, 5: PRINT#2," 12": USING “#4. #': 

l 

990 IF a$=CHh#(242}; AND L:0.6 THEN A1 


1=i-G,S:PRINT#2." 12": USING "H#.#': 
l 


1006 IF a$=CHR$ (13) THEN PRINTHE, CH : 


R${24):G0T0 390 


1910 GOTO 570 
1020 a$=INKEYS 
1UIG IF a$=CHR#1243) AND e‘6G0 THEN GE 
e=e+5: PRINT#S," e=": USING "#fff'ie 


1040 IF a$=CHR$ (24%) AND e>-600 THE : 
N'e=e-S:FRINTHS," = ":UGING "#HHh#: 


ë 


1050 IF a$=CHR#(13; THEN PRINTAI.CH TJ 
R$(24):G0TG 390 

1565 GOTO 10270 :LH 
1970 a$=INKEVS #WC 


1080 IF a$=CHR$(247) AND K{420 THEN à 
X=X+10:PRINTHA," X=": USING "HA: 

X 

1090 IF a$=CHR$(242) AND X>0 THEN X FF 
2X-10:FRINTHA," Xe": USING HR: 


1100 IF a$=CHR$(13) THEN PRINTH#4,CH :TF 
R$(24):G0TD 390 


1iiG GOTO 1970 ëLJ 








NÉEYS 34 tin PRINT TAB(Z) "Bord": :PRINT TAB( 5R] es ##44 SELECTION DES FENETRES GC 

a$=CHR$ (ZA) AND VEZEO THEN FH | 7) CHR$(1493: PRINT TAB(O)'F #KE#S 

PRINTHS," Y=UIUGING "HH##": FINE TABGLS) CHR#(i49)::PRII 1370 CLS#7:LOCATE #7.21,1:PRINT#7. LE 
ait": :PRINT TABIZI) CHR$1149) CHA$ (241) 

su 1380 ab=INÉEYS 





LAC IF at=CHRS (247) AND 280 TH 





Y=Y- SC: PRINTAS," Va USING CH#Hh'i y 1270 PRINT TAB(22)"Lettre"s:PRINT T Ci | 1390 IF at=CHR$(247) AND 3 
AE(29)CHR# (149): : PRINT TAB(29) "Dess 2!=21+7:CLS#7: LOCATE #7,21,1:PRIX 

Î THEN PEINTAS, CH TM | in"e:PRINT TAB(TS) CHRS 149) ee PRINT T#7, CHR$(541) 

F TAB(37} "Vue" 1AG0 IF aÿ=CHRS(Z4T) AND 2155 
1280 FOR i=i T0 AG: PRINT CHRS(196): HR | 2i=21-7:CLOH7: LOCATE 47.2 





Î #WD | :NEXT #7. CHR$(Z41; 

O IF a$=CHR$(Z45) AND dé380 THEN RE | 1290 PRINT TAB(7: CHRS(1AG)::PRINT 2FG | 1410 IF at-CHR$ii3i THEN 1470 
=d+ii:PRINTÉE, d=": USINE MH: TABILAS CHR$(149):: PRINT TABIZIà CH 1420 GOTO 1380 MG 
d R$(140)::PRINT TAB(Z8) CHR$(149)::F 1430 IF 2123 THEN FRINTH#I,.CHR$(Z4): GUG 
1190 IF a$=CHR$ (242) AND di-380 THE STE | RINT TAB(29) "Retour "::PRINT TABUZS) PRINTHI," GE" USING “#H#':b:G0T0 150 
N d=d-IG:PRINT#6," d=':USING "HR" CHR${149)::PRINT TAR{T7)"Fin" (é 
td 1560 WINDOW #1,1,6,25,25:WINDOW #2, >Cx | 1HdG I 
1200 IF a$=CHR$IITI THEN PRINT#O.CH TJ | 8,13,25, 25: WINDOW #3, 15.20.25. 2524I : PRINT 


sidi Wi 














F zizi THEN FRINTHE,CHRS (24) GUY 
#2," f=":UGING'##": fe G0TO 155 











R$(24);:G0T0 3 NDOW #4,22,27,25,25:WINDOU #7,1,4%, | 0 
1210 GOTO 1175 MA | 21,31 1450 IF 21=17 THEN PRINTHS.CHR# (24) UF 
220 RETURN #EJ 310 ‘ #### RAPPEL DES VARIABLES #4 {4 | 2 PRINT," te':UGING"##":t:G0TO 164 

C# MASQUE ECRAN (COULEUR MODE GXJ | #4 û 
li + 320 PRINT#1." De": USING "##':b 28 | 1465 IF 2=24 THEN pe: PRINT#A,CHRS EE 
1245 LOCATE 1,33 #DB | 1330 FI 





1250 FOR 121 TO SG:PRINT CHR$(194): HN | 1345 PRINTHI," ES": USING "##it 18 
2NEXT de PRINT#4," Pas USING "H'or Y6,] 1470 IF 21=21 THEN p=Gime2ir=f:GOTO FN D 


CR LAUU CE Lol ER ZT ee] TES 


CPC -— REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 

Attention, tous nos abonnés recoivent avant parution des <ouscriptions sur les nouveaux 
livres ! 


fI b 

VINTHZ," HE USING "His 3YE PRINT F2" USINE"## "1: GOT 
I t 

Ï 
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35û 
1460 IF 21238 THEN g=lim=t:G0TO 350 
1495 
ES +# 
1S0O a$=INEEYS 

1Sit IF a$=CHR#IZ47; AND 226 THEN 
b=b+i:PRINT#I," b2':USING “Hit 


# MODIFICATION DES VARIAEL 


FEU f 


VE 


SH 
LC 


1920 IF a$=CHR$i747) AND brû THEN b EE 


=b-1:FRINT#I,* 2° 
1536 IF a$=CHR#( 
RÈ GOTO 395 
1546 GOTO 1500 


1550 af=INKÈVS 


sUSINE "HH:b 
133 THEN FRINTH.CH 





IS6û IF af=CHR#IZAT) AND #36 AND + YU 


È THEN f=++ii:PRINTED, 1 F2" USING 
NE: 
1570 IF a$=CHR$ITAT} AND +226 AND 4 
2t THEN H2t+i:PRINTÉZ," =": USINE ? 
##if 
1580 IF a$=CHR$(Z4T; AND 4-26 AND t 
226 THEN f=+-i:PRINTHS," Fa: USING 
"Hhls 


it THEN f=f-i 
fa'sf 

1600 IF a$=CHR$IZ42; AND #40 AND 
t THEN FSt-LiPRIATHZ,  FSUIUSING 4 
#'if 
CHE 


:PRINTHZ," f=":;UGING " 


IF a$=CHR$ (242) 





D THEN f=t+is PRINTHE, 
#'sf 





1 ec 
 . 


545 a$=INKEYS$ 

QG IF a$=CHh${24; 
st THEN EsÈt{eFRINTAZ, " Est: USING 
"Hit 

1660 IF a$=CHR$(243; AND t{26 AND t 
=$ THEN tsf+iiPRINTET, ! Este UGINE 
Hit 

670 IF a$=CHR$ (247) AND 
=2ù THEN tat- 
Si 





LFRINTES, TE USINE 


1686 IF a$=CHR$(242) AND tit AND ti 3 


if THEN tat-{:PRINTHS," =": USING " 
#h'it 

1690 IF a$=CHR$ 1242) 
f THEN t=f-{:FRIN 
#'it 

1700 IF a$=CHR#(242) AND t=û AND = 
D THEN t=t+i:PRINTHS," =: USING ‘4 
#'it 

1710 IF a$=CHR$113} 
R$i24):G0T0 390 
1720 GOTO 1640 


SND to END t= 
TRI." =" USING 4 











END ti36 AND € à 


t=26 AND # 3Y 


THEN PRINT#S, CH 


1990 IF a$=CHR$(245; AND #40 AND #2 SEX 





VE 


= UK 


#4 


HW 


EN 





MI 


Ag: 101): 


1725 a$=INÉEYS 

F4 IF a$=CHR$ 242; AND r£26 THEN 
partiiPRINT#4." Pets USING hf: 

1750 IF a$=CHR$ (242) rai THEN F 
=p-L:PRINTHA," Pet USING “hier 
1760 IF a$=CHR$ (13; 
R$(24):G0TD 335 
1775 GOTG 1735 








1780 ‘x MASQUE ECRAN (COULEUR MODE 
) 


1795 LOCATE 1,27 

1806 FOR izf TO 85 
:NEËT 

Î6i0 PRINT TAF! … “Eord's:PRTR 
ia) CHR (HAS): NT TAB(IS: 

:PRINT TAB{27) C 
31)" Trait": PRINT 7 

js; 

1920 PRINT TAB‘) "Lettre"s:P 

(DS) CHARS (149): : PRINT TAR(S7: 

inf: PRINT TAR(S7) CHR 
TAB{72) "Vue" 

1955 FOR ii TG 55 
INEXT 

1940 PRINT TAE(I4: 
TAËI27: CHARS (40 is: PRINT TAB. 

HAS (149) :: PRINT TAR(ET) LUE 

PRINT TAR(S7)"'Retour':s 

} CHRS(IA9 HS: PRINT T 

185û BINDOW #i.%, 


NE 9€, 
.15,26,25,25: 


WINDOW 44,41, 
0,21,21 

1865 ‘ #### RAPPEL DES 
#4 













149}: 





RINT CARS IS: 


CHR (149: 









:HINGOW 


9 9€ 20, 
dés idee 





HINDON #7, 





VARTA 


Es 
pr 
Lea 


INTRI,° 
INTEZ," 
RTS 


b=": USING 
F=" USING 


1570 
1885 
igs5 } 
13ûG E 
1915 
#4 
1920 CLS#7:LOCATE 47,22, 1/:FRINTET. 
CHR# (241) 

1930 a$=INKEYS 

1940 IF a$=CHR$i295) 2 
2E=25+13:CL5#7: LOCATE #7. 
NT#7, CHR$(741) 





USINE "Hip 








1950 IF a$=CHR$ (245) AND 22:14 THEN :LV 





22=zi-15:CLE#7: 
NT#7, CHR#I241) 
1960 IF aÿ=CHR#(1T) THEN 1900 

1976 GGTO 1936 

1980 IF 22=7 THEN FRINT#I,CHR# (24): 
FRINT#I," EE": USING "#f":b: 6070 
2050 
1996 IF 
2PRINT#2," 


LOCATE #7,22,1:FRI 


FES USINGUH# "#1: GOTO 


11 


THEN PEINT#4,CH Ti 


32,2: WINDOK #2 GE 





#44 SELECTION DES FENETRES # : 


22=20 THEN PRINTHS, CHR$ (74) 576 











2100 
2000 IF 22233 THEN PRINT 


:PRINTHS, 
190 





ESS USINGAH": t:COTO 2 


2010 IF 22=46 THEN PRINT#4,CHR&(TA) 78 


:FRINT44, 
2286 
20 IF 27259 


ET 7 


:GOTE 395 


p= "USING Hf*:p:GOTD 





THEN m=2 


2036 IF 22275 THEN m=2:9=2: 5070 360 


EG 
ES + 
Q90 a$=INÉEY# 
G65 IF a$=CHR$ 745) AND bi2£ THEN 
E=b+i:PRINTHE, 4 ï 


# MODIFICATION DES 





La 





2970 IF a#=CHA$(247) AND b0 THEN b NH 


=b-L:PRINTHI," Des USING "H#'ib 


2060 IF a$=CHf$ 13) 
):G0T0 390 





2110 IF 28=DHR# (247) ÊMD f:25 AN 
i THEN f=t+iii 
D'TLPE 

IF a$=CHR$1747; AND +f<74 
St THEN +=t+{:PRINTHS, 
EN: DE) 


Li 





NS 


Z1EG 









THEN 4241: PRINT, 
"has 


nr = 


NG 


2140 IF a$=CHR#(247) AND 4:50 BND 44 
t THEN faf-L:FRINTES, Fes USIN 


B "His 

2150 IF a$=CHR#(247) AND 
t THEN fat-1:PRINTH," 
WTA 

2160 IF at=CHR$(247) AND 

à THEN 42441: PRINTEE, 
TE: 

2170 IF a$=CHR# (1 

R$124):G0T0 390 

2180 GOTD 2100 

2190 at=INKEVS 

2200 IF a$=CHR$(243) AND +24 

Cf THEN tettliPRINTHI," te": USIN 

G "prit 


="; USING 


#=0 AND t= 
f="; USINE 


3} THEN 









a$=CHR$(241) AND 


ESF PRINTAZ "EST USING 





22 a$=CHR$ (243; se 
26 “THEN t=t-1:PRINTHS, 

6 "##'it 

2230 IF a$=CHR$(242) AND 
3$ THEN tst-L:PRINTHS, * 
“Hit 


D +228 AND ! 
+="; USIN 


t="; USING 


razGipzüiref 


VARIÉEL 


THEN FRINTHL,CH 5 


PRINTES, ° Fes US 


D IF a$=CHR$ (247) AND +226 AND t ER 


PRINT#E, CH 57 


té28 AND t ? 


t:0 AND ti : 





Z4i FE 


AR 


Fi0 ANE #= 7 


#YJ 


AND + BY 


>AT 





® 
2240 IF a$=CHR$(242) AND t>0 AND t= >YE 
# THEN t=f-1:PRINTHS," +="; USING 
"hit 
2250 IF a$=CHR$(242) AND t=0 AND #= >YD 
O THEN t=t#:PRINTHS." +="; USING 
"hit 
2260 IF a$=CHR$(13) THEN PRINT#S, CH TN 
R$(24):GO0TO 390 





2270 GOTO 2190 >NA 
2280 a$=INKEY$ >WG 
2290 IF a$=CHR$(243) AND pi THEN p PF 
=p+liPRINT#4," p=";USING "##":p 

2300 IF a$=CHR$(242) AND p>0 THEN p ?FZ 
2p=liPRINT#4," p=";USING "##";p 

2310 IF a$=CHR$(13) THEN PRINT#4,CH TE 
R$(24):GOT0 396 

2320 GOTO 2280 ?MG 
2330 ‘ #K##4 EXAMEN DU TITRE ####4 YA 
2340 LOCATE 12,24: FRINT"Fresser une >UU 
Touche" 

2350 x$=INKEYS: IF x$=""THEN 2350 +2X 
2360 g=3:G0T0 390 LE 
2370 LOCATE 1,24:PRINT'Dessin='D'  2YN 
Couleur='C" Utilisation='U'" 

2380 a$=INKEYS: a$=UPPERS (a$) >X2 
2390 IF a#="D'THEN m=2:g=0:60T0 390 :BA 


2400 IF a$="C"THEN m=1:g=0:G60T0 390 EP 


“2410 IF a$="U"THEN m=1:60T0 2530 
2420 GOTO 2380 

2430 LOCATE 31,24: PRINT'Presser une 
Touche" 

2440 X$=INKEYS: IF x$=""THEN 2440 


2450 g=3:60T0 390 

2460 LOCATE 14,24:PRINT"Dessin= "D" 
Couleur='C" Utili 

sation="\l'" 

2470 a$=INKEY$:a$=UPPERS (a$) 





2480 IF a$="D"THEN m=2:9=0:6070 390 >BA 


J 


2490 IF a$="C"THEN m=2:9=1:60T0 390 : 





2500 IF a$="U"THEN GOTO 2530 


«VC 
2510 GOTO 2470 ?MJ 
2520 ‘ *k#Hk UTILISATIONS ###k#4 VB 


2530 CLS:MODE 1:BORDER O:INK 0,3: IN 

K 1,24:INK 2,26:IKK 3,18 

2540 PEN {:LOCATE 9,2:PRINT"U T I L 
ISATIONS" 

2950 LOCATE 14,4:PRINT'# # 4 4 # + 

+" 

2560 PEN 24LOCATE 11,9:PRINT"1..... 


CP 


WT 


CP 


>UH 


TARN AH 1) is 


COPIE D'ECRAN" 
2570 PRINT:PRINT:PRINT TAB({1)"2,., 
«PROGRAMME BASIC" 


2580 PRINT:FRINT:PRINT TAB(11)"3.., à 


. RETOUR" 


2590 PRINT:PRINT:PRINT TAR(11)"4.,, ÿLP 


FIN" 


2600 PEN 1:LOCATE 17,23: PRINT"CHOIX à 


au 

2610 a$=INKEYS$ 

2620 IF a$="{"THEN GOTO 2680 
2650 IF a$="2"THEN G0TO 2980 
2640 IF a$="3"THEN g=3:G0T0 390 
2650 IF a$="4"THEN G0TO 3090 
2660 GOTO 2610 


2670 ‘ ### SAUVEGARDE { ecran } #44 : 


2680 ON ERROR GOTO 29460 


2690 CLS:MODE 1:BORDER 0: INK 0,3:IN à 


K 1,24: INK 2,26: INK 3,18 


2700 LOCATE 8,2:PRINT'COFPIE D; 


"ECRAN" 
2710 LOCATE. 14,4:PRINT'X # 4 #4 # + 
+" 


2720 PEN 2:LOCATE 7,7:PRINT'L'image > 


doit etre conservee" 
2730 LOCATE 12,9:PRINT'"sous le nom 
de ...." 
2740 LOCATE 14,11:PRINT",,.:" 
2750 LOCATE 18,11:PRINT CHR$(18) 


2760 LOCATE 18,11:PEN 1:LINE INPUT" à 


titre$:titre$=UPPERS (titres) 

2770 IF LEN(titre$):12 THEN 2750 

2780 IF LEN(titre$)£1 THEN 2750 
2790 FOR i=1 TO LEN(titre$) 

2800 tt$=MID$ (titres, i,1) 

2810 tt=ASCIttS) 

2820 IF tt=46 OR tt>47 AND tt{58 OR 
tt>64 AND tt{91 THEN 2840 ELSE 275 

(t 

2830 NEXT 


2840 PEN 3:LOCATE 2,14:PRINT'"Couleu } 


rs par defaut lors du chargement" 


2850 PEN Z:LOCATE 8, 16: PRINT "donc N : 


oter OBLIGATOIREMENT: " 


2860 PEN S:LOCATE 1,19:PRINT'MODE"; 


m3": BORDER ":b3 "2 INK 0, "3 #5": INE 1," 
st 
L 


2870 IF m=i AND r£>0 THEN LOCATE 1, à 


21: PRINT": INK 2, "sr 

2B80 PEN 1:LOCATE 7,24:PRINT'"COPIE 
='C'":LOCATE 25,24: PRINT"RETOUR ='R 
2890 a$=INKEYS$: a$=UPPERS$ (a$) 

2900 IF a$="C"GOTO 2950 

2910 IF a$="R"GOTO 2530 

2920 GOTO 2890 


12 


IV 


XF 
>Q6 
>Q 
?NK 








2930 g=4:G0T0 390 ?LF 
2940 SAVE titre$,b,49152, 16384 3VK 
2950 GOTO 2530 ?ND 
2960 IF ERR=352 THEN CLS:RESUME 2530 >CG 
2970 ‘#HHHHHEX PROGRAMME BASIC ###4 }ZA 
#HHH# 

2980 CLS:PEN 1:LOCATE 13,2: PRINT'PR WT 
OGRAMME BASIC" 

2990 LOCATE 16,4:PRINT"# # 4 #4" :7L 
3000 PEN 2:LOCATE 3,6:FRINT"Remplac >MZ 
er les i2 premieres Lignes de":LOCA 

TE 8,8:FRINT"...."snom$;"....par:" 

3010 PEN S:LOCATE 1,11:PRINT" CLS": 3CK 
“MODE "5m; ": BORDER": b 

3020 PRINT:PRINT" INK O,"sfe te NE 1 VX 
S'itstiF m=i THEN PRINT':INE 2,'irs 
3030 LOCATE 1,19:PRINT" ORIGIN";x5" HE 
1 

3046 PRINT:PRINT" d="idi"sh="shs"sl DT 
="il"ies" se; "pe"; P 

3050 PEN 2:LOCATE 3,20:FRINT"Appele :XM 
r les Lettres par des GOSUB" 

3060 PEN 1:LOCATE 12,24:PRINT'Fress AR 
er une Touche" 

3070 a$=INKEY$:IF a$=""THEN 3070 YF 
3080 GOTO 2530 3MJ 
3090 CLS:MODE 1:BORDER 1:INK O,1:IN >MV 


K 1,24:END 


3100 ‘#k#k# DESSIN DES LETTRES #### KG 
4000 CLS:MODE 1:LOCATE 6,13: PRINT"S ÿZR 
‘utilise avec ‘TITRE U R'":END 

4010 ‘#k### Lettres disponibles +## ;XH 
4020 FEN 2:LOCATE 5, 10:PRINT'LETTRE BE 
S disponibles:" 

4030 LOCATE 10,12:PRINT'E,I,R,T,U,, JN 
4040 RETURN FE 


4050, ‘la ligne 4060 (qui doit toujo >YB 
urs porter ce numero) prevoit un cl 
assement alphabetique 

4060 ON a GOSUB 4100,4100,4100,4100 >BY 
,4220,4100,4100,4100,4190,4100, 4100 
4100,4100,4260,4100,4100,4100,4120 
,.4100,4160,4250,4100,4100,4100, 4100 
4100, 4100 

4070 HE MHEIHHNONHHBENHTE DYD 
4080 ‘ DESSIN des LETTRES ?YE 
4090 HN DYE 
4100 RETURN:REM lettres NON disponi KM 
bles 

ALLO ARNO D X] 
4120 ‘kHne Lettre R° HHHHHHE XK 























4130 MOVER O,d:DRAWR O#1,204#h:DRAWR >KB | 4230 MOVER O,d:DRAWR O#1,20xh:DRAWR >TV | 50 REM dessin du contour de la lett >FL 
20#1,0#h:DRAWR 0#1,-12#h:DRAWR -4# 20#1,0#h:DRAUR 0#1,-4#h:DRAWR -16# re 
1,04h:DRAWR O#1,-4#h:DRAWR 4#1,0#h: 1,0#%h:DRAWR O#1,-4#h:DRAWR 8x1, 0%h: 60 DRAWR O#1,20#h:DRAUR 20#1,0#h:DR >EZ 
DRAMR O#1,-4#h:DRAWR -B#1, 04h: DRAWR DRAWR O#1,-4#h:DRAWR -8#1,0#h:DRAWR OMR O#1,-12#h:DRAUR -4#1, 04h: DRAWR 
O+1,8æ#h:DRAWR -B#1,0#h:DRAWR 0#1,- O#1,-4#h:DRAWR 16#1,0#h:DRAWR 0x], Ox1,-4#h:DRAWR 4#1,0#h:DRAWR O#1,-4 
Bah: DRAWR -4#]1,0#h 4h: DRAWR -20#1,0%h:MOVER 2#1,2#h: #h:DRAWR -8#1,0#h:DRAWR O#1,84h:DRA 
4140 MOVER 4#1,12#h:DRAWR O#1,4#h:D HV | FILL p:MOVER 18#]1,-2#h:MOVER 4#1te, WR -B#1,0#h:DRAWR O#1,-Bxh:DRAUR -4 
RAWR 12#1,0#h:DRAWR O#1,-4#h: DRAWR O#h #1,0#h 
-12#1,0#h:MOVER 2#1,2#h:FILL 0:MOVE 4240 RETURN >FD | 70 REM curs.au bas gauche du "trou" >DF 
R -4#1,-12#h:FILL p:MOVER 18#1,-2#h 4250 “HE Lettre U #H#HH#+ 3 YD | BO MOVER 4#1,12#h LH 
:MOVER 4#1+e, Oxh 4260 MOVER 0,d:DRAWR O#1,20%h:DRAWR >XF | 70 REM dessin du "trou" >UB 
4150 RETURN ?FD | 4#1,0#h:DRAWR O#1,-16#h:DRAUR 1241 100 DRAWR O#1,4#h:DRAWR 12#1,0%h:DR JF 
4160 “HE Lettre TO HR VD | O#h:DRAWR O#1,16#h:DRAWR 4#1,04h:D AUR O#1,-4#h:DRAWR -12#1,0#h 
4170 MOVER 0,d:MOVER 8%1,0#h:DRAMR 267 | RAWR 0#1,-204#h:DRAMR -20#1, 0th: MOVE 110 REM curseur dans le "trou" ÿ1R 
O#1,16#h:DRAWR -8#1,0#h:DRAWR 041,4 R 2#1,24h:FILL p:MOVER 18#]1,-2#h: M0 120 MOVER 2#1,2#h >LK 
#h:DRAWR 20#1,0#h:DRAUR O#1,-4#h: DR VER 4#1+e, O#h 130 REM color. du "trou" (fond) >2U 
AWR -8#1,0%h:DRAWR O#1,-16#h:DRAWR 4270 RETURN >FG | 140 FILL 0 HE 
-4#1,0#h:MOVER 2#1,2#h:FILL p:MOVER 150 REM curs.dans la lettre >WY 
10#1,-2xh:MOVER 4#1+e, 04h 160 MOVER -4#1,-12#h >NM 
4180 RETURN >FG R 170 REM choix du stylo (color.) >1U 
4190 ‘######EMEE Lettre I #####44 > YG 180 FILL p sMA 
4200 MOVER O,d:DRAWR O#1,20#h:DRAWR >JC | 10 CLS:MODE 2:ORIGIN 420,40:d=0:1=5 >RN | 190 REM curs.au bas droit de la let FX 
4#1,0#h:DRAWR O#1,-20#%h:DRAWR -4#1 th=5:p=1:e=0 tre 
50h: MOVER 2#1,2#h:FILL p:MOVER 2#] 20 PRINT TAB(28)"- DESSIN de la let >GL | 200 MOVER 18*1,-2xh M2 
,72#h:MOVER 4#1+e,0#h tre R -" 210 REM espace et decal.horiz, 20 
4210 RETURN FA | 30 REM decal. vert. ?NA | 220 MOVER 4#1+e,O#h NF 
4220 ‘HHHEHEHHEE Lettre E  ##HHHHH4 YA | 40 MOVER 0,d ?CK | 230 LIST 30-220 
SKYHAWK = 
Paul-Henri RENARD — 
10 DEG :KD 
20 BORDER O:DIM a{16}:FO0R i=0 TO 15 >VR 
*READ a: INK i.a:a(i)=a:NEXT: DATA 0, 
20,3,15,6,7,17,5,11,2,1,10,18,21,22 
25 
30 MODE O:TAG:PEN 12:MOVE 208,394:P >BC 
RINT " "3: MOVE 208,398: PRINT" 
Valable pour SKYHAWK!": : TAGOFF: PEN 3:LOCATE 11,25 
:PRINT"P-H RENARD": :n=635 
CPC 464 40 FOR i=0 TO 640 STEP 15:MOVE 320, >CY 
Dm CPC. 664 200 
X CPC 6128 Il s’agit d’une simulation d’atterris- 50 DRAM i.50-30#SIN(i/2) ,pin=n-15:M >BX 
sage comprenant les effets d’attraction QVE 320.200: DRAM n.350-302SIN(i/2), 
et d’inertie. Seulement, dans le cas L, ; 
présent cela se déroule sur l’écran de pip=p+li IF p?15 THEN p=l : 
l’Amstrad, en couleur et en bruitages. 60 NEXT i >6J 


Voici un jeu d’arcade compre- 
nant 9 tableaux et qui devrait 
faire remonter de vieux souve- 
nirs aux possesseurs des premiè- 
res calculatrices programmables. 


Lors du menu, il faut utiliser les tou- 
ches du curseur ou le joystick pour 
choisir une option puis appuyer sur 
espace ou sur ‘‘Fire”’. En tapant 
ENTER vous sortirez du programme. 
Il y a deux listings à taper : le premier 
sera sauvé sous le nom de SKYHAWK 
et le second avec le nom SKYHAWK 
1. 
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70 p=1:FOR i=100 TO 300 STEP 15:MOV >JC 
E 250, 200 

80 DRAW 50-30#C05 (i+300/1.8)4+54SIN( WC 
i),i,P:MOVE 390,200: DRAW 590-30#C05 
(i+300/1.B)+5#SIN(i),i+15,pp=p+#ti1 

F p>15 THEN p=1 

90 NEXT >vk 
100 FÜR h=1 TO 2:RESTORE 130:FOR i= >UZ 


UE @ 





1 TD 48: x=INT (RND#640) +1 : = INT (RND* 
400)+1:a(16)=a(1):FOR j=1 TO 15: INK 
j.a{j):atj)=atj+i):NEXT:READ fr.du 
: SOUND 1,fr,.du:SOUND 2, fr/5, du: SOUN 
D 4,fr/5,du 
110 PLOT x,v.p:p=p+#{:IF p>15 THEN p 
= 
120 NEXT i,h 
130 DATA 127,10.127,10,142,10,159,2 
6,213,10,159,20,127,10,127,.20,142,1 
0.127.10,127,10,142,10,159,20,213,1 
0,159,20,127,10,127,30,142,10,127,1 
0.119, 10,106.20,95, 10, 106,20, 142,10 
,106,10,106,10,119,10,127,20,142, 10 
.199,.30,159,10,142,10,127,10,142,20 
119,10 


?E1 


DA 
>DF 


140 DATA 127,20,190.10,199,10.127,1 FT 
6,142,10,159,20,169,10.190,10,137,1 
0,142,10.159,10,169,10,159,40 

>0F 


150 RUN"! skyhawk1" 





#44 
10 ON BREAK GOSUB 1480:DIM p1(10,2 


20 DEFINT a-z: j1=0: j2=8: j5=1: SYMBOL >QP 

AFTER 32:MODE 1:PRINT CHR$ (23) :CHR 

$(1)::G0T0 1000 

30 PAPER#1.0:INK 0,0: INK 1,2: INK 2, 

15: INK 3,6: BORDER O:PAFER 0:CLS:PEN 

S:PRINT TAB(17) "SKYHAWK" 

40 WINDOW#1,1,40,4,25:ENV 1,8,-1,18 >VQ 

ENV 2,15,-1,5:ENV 4,5, -2,50:G0SUB 

650 

90 0$=CHR$ (240) +CHR$ (241) : F$=CHR$ (2 

43)+CHR$ (244) +CHR$ (245) +CHR$ (246) 1h 

=0:s=0:c=2:cc={5:ccc=b 

60 PEN S:LOCATE 1,3:PRINT'SCORE : T0 
"sLOCATE 15,3:PRINT"RECORD :°"r 

*LOCATE 30,3:PRINT "NIVEAU :"sn 

70 RESTORE:GOSUR 550:aa$="Appuyez 5 >XX 


ur <ESPACE> pour commencer":LOCATE 
4,6:FOR i=i TO LEN(aa$) STEP 3:FOR 
3=1 TO 3:PEN j:PRINT MID$ (aa, it+j-1 
41): :NEXT ji 

80 MHILE INKEY{47)<0:c=ctlicc=cc#1 
sccc=ccc+i:IF c*26 THEN c=û ELSE IF 
cc>26 THEN cc=0 ELSE IF ccc26 THE 
N ccc=û 


90 INK L,c:INE 2,cc:INE 3,ccc:FOR à à 


=1 TO 100:NEXT:HEND 

100 INK 1,2:INK 2.15:INK 3,6:LOCATE 
4.6:PRINT GPACES (35) :60T0 126 

110 GOSUB 550 

120 GOSUB 540: TAGOFF 

130 +=576:PFEN 2: TAGOFF:LOCATE 1,2:P 
RINT #F$STRINGS (36.242): PEN 1 


140 xs=û: ve=t: y=348: x=2: t=0: x 1=0: vi à 


=0:qel=û 
150 PRINT CHR$(23)CHR# (1) : : TAG 


160 PLOT -2,-2,3:1F f{=0 THEN G0SUB : 


360:G60T0 220 


170 IF gel=0 THEN t=t+1:IF t=5 THEN : 
. t=0:G0SUB 360 


180 IF INÉEY(79)=0 THEN 20 

190 IF INKEY#i3)=0 THEN SOUND 130,0 
.0,8.1.,20:gel=0:G0SUB 330:1F xs<8 
THEN x5=x5+2 


200 IF INÉEY(j2)=0 THEN SOUND 129,0 : 


.0,8.1.,20:qel=0:GOSUB SI: IF :5:-8 
THEN xs=x5-2 

210 IF INKEY{ji)=û THEN SOUND 152, 
.0,8.1.,30:qe1=0:G0SUR 330:1F vs:-6 
THEN ys=ys-{ 

220 x=x+xS:y=v-vs 

290 IF v:350 OR v£34 THEN vs=û 

240 IF x*608 THEN x=608: x5=û 

290 IF x°0 THEN x=0: x5=0 

260 MOVE x1,v1-18:FRINT o$: 

270 MOVE x,y-16: PRINT o$: 


280 IF gel=0 THEN te=TEST(x-2,v-34) : 


OR TEST(x+18,y-34) OR TEST(x-2,v-1 
b) OR TEST(x+18,y-16) OR TEST(x+54, 
v-22) OR TEST(x+34,y-28):1F teii TH 
EN 490 
290 IF gel=0 THEN IF TEST(x+2,y-32) 
=1 AND TEST(x+28,y-32)=1 AND vsi3 T 
HEN 450 
300 x{=x:vi=v:IF #2150 AND ff=0 THE 
N GOSUB 3:20 
310 GOTO 160 
320 ff=1:EVERY 50,3 GOSUE 350:RETUR 
N 
330 IF f>0 THEN f=f-2:MOVE f+64,368 
:DRAUR 0,14,3 
340 RETURN 
350 SOUND 129,50,5:RETURN 
360 IF xs>=2 THEN xs=x5-in 
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>AX 


GYR 


#KU 


?LY 


?MJ 


>YH 
?EA 


PV 
?1C 


UA 
VF 


370 IF xsi=-2 THEN xs=ystin }UV 
380 IF vs<ié THEN ys=ystpe ?V4 
3970 RETURN >ZH 


400 +f=0:re=REMAIN(S):MHILE #>0:f=f 
-2:MOVE #+64,368:DRAMR 0,14,3:s=c+1 
:GOSUB 540:SOUND 1.520-f,6, 1G:WEND 
410 GOTO 110 

420 ff=0:re=REMAIN (3) : TAGOFF:LOCAT 
E 16.10:PEN 1:PRINT'"qame over":TAG: 
MOVE 216,256:PRINT CHR$ (248) ; : MOVE 
216,240:PRINT CHR$(249)::MOVE 390,2 
96: PRINT CHR$ (248) ;: MOVE :90,240:PR 
INT CHR$(249)::TAGOFF: SPEED INK 5,5 
INK 1,2,152INE 2,15,6: INK 3,6,2:60 
SUR 980 

430 FOR i=1 TO 4000: NEXT:INE 1,2: IN 
K 2,15:INK 3,6:1F sr THEN r=5:LOCA 
TE 13,18:PEN 3:PRINT " record battu 
11 e:GOSUR 1460 

440 GOTO 20 

450 a=xtib:bzy-14:FOR izG 70 pl 

460 IF pl(i,0)<>-1000 AND aïpl(i.1) 
AND atpl(i,1)+p1{i.0)AND bépl(i,2)A 

ND bipi(i,2)-8 THEN SOUND 129,119,5 

0:SOUND 130,40,50:SOUND 132,24,50:F 

OR i1=0 TO 6 STEP 4: MOVE plli,1),pl 
(G,2)-11:DRAUR pl(i,0)-2,0,1:NEXT:S 

=stpl(i,G):pl(i,0)=-1000:upl=upl-1: 

i=1000 

470 NEXT:IF upl£i THEN 400 

480 gel=1:ys=0:x5=0:GO0SUR 540:60T0 

290 

490 SOUND 130,0,-1,15,4,0,30:i1=0:F 

OR i=1 TO 100: INK O,3,9 

300 FOR j=1 TO 25:NEXT:IF i/5=INTG 

/5) THEN ii=it XOR Î:IF il=1 THEN M 

QVE x,y-16:PRINT 0$:ELSE MOVE x+8, y 

16: PRINT CHR$(247): 

310 NEXT ER 

920 FOR i=1 TO n#15:GOSUB Z30:NEXT BD 

330 MOVE x.y-16:PRINT 0$:: TAG: INE O DLL 

,0:FOR i=i TO 2000:NEXT: x5=0: ys=0: y 

=348:x=2:t=0:x1=0:y1=0:qel=0:IF F0 
THEN 160 ELSE GOTO 420 

540 TAGOFF:PEN 3:LOCATE 8,3:PRINT s :MK 

:PEN 1:LOCATE 1,1: TAG:RETURN 

290 pl=0:CLS#1:TAGOFF:PRINT CHR$(23 >MK 

)CHR$ (0) 

960 READ v,w:IF v=-1 THEN GOSUB 139 >XD 

O:RESTORE: GOTO 560 

370 p=0:READ a,b:1F a=-1 THEN upl=p >XV 

1:pl=pl-1:RETURN 

980 IF a<0 THEN a=-a:p=1:pl(pl,1)=v 26 

:pl(pl,2)=w:pl(p},0)=ABS(a-v):pl=pl 

+1 

990 IF a£v THEN sc=0 ELSE sc=? >XN 

600 dx=a-v:dy=b-u: 1=SGR (dx#dx+dy#dy >GF 


#XL 


#YD 
#HH 


CR 


w. 


>RE 
YU 


EN 


UR 
Gb 


+ 


DE 


} 
610 FOR e=û TO 1 STEP 2 


620 sc=sct(sc=3)-(sc=2) : MOVE vretdx : 


Î1,wte#dy/1:DRAWR 0,-400,5c 


630 IF p=1 THEN MOVE (v+exdx/1), (wte 


#dy/ D) :DRAUR 0,-6,1 
640 NEXT: v=a:w=b:G0TO 570 


650 SYMBOL 65,0,126.66, 66,126, 66,66 à 


66: SYMBOL 67,0,126,64, 64,64, 64,64, 
126: SYMBOL 68,0, 124,66, 66, bb, bb, bb, 
124: SYMBOL 69,0, 126,64, 64, 120,64, 64 
128 
660 SYMROL 72,0, 66, 66, bb, 126, bb, 68, 
bb:SYMBOL 73,0,8,8,8,8, 8,8, 8: SYMEOL 
75,0,34,34,36,56,36, 34,34: SYMBOL 7 
8,0, 98,98, 82, 90, 74, 70, 70 
670 SYMROL 79,0,60,66, 66, 66, bb, bb, 6 
0:SYMEOL 82,0, 126, 66, 66, 126,68. 66,6 
b:SYMBOL 83,0,126,64,64,126,2,7,124 
:SYMEOL 85,0, 66, 66, 66,66, bb, 66, 60:5 
YMBOL 86,0, 66, 66, bb, bb, bb, 3b, 24 
680 SYMBOL 48,0, 124,68, 48, 68, 6B, 68, 
124:SYMEOL 49,0,4,4,4,4, 4,4, 4: SYMEO 
L 50,0,124,4,4,124,64,64, 174: SYMBOL 
51,0,124,4,4,60,4,4,124:SYMBOL 52, 
0,68,68,68,124,4,4,4 
690 SYMBOL 53,0,124,44,64,124,4,4,1 
24:SYMBOL 54,0,64,64,64, 124, LB, BB, 1 
24:SYMBOL 55,0, 124,4,4,4,4,4,4:SYMB 
OL 56,0,124,68, 68, 124, 68, 68, 124:SYM 
BOL 57,0,124,68,68,124,4,4,4 
700 SYMROL 240,255,63,15,6,6, 15,43, 
255 


710 SYMEOL 241,0,240,248,79,79,248, à 


246 


720 SYMBOL 242,192,240,252,255,255, } 


252, 240, 192 
730 SYMBOL 243,254, 254, 192, 192,254, 
192,192, 192 


740 SYMEOL 244,198, 198, 198,198. 198, : 


198, 254,254 
750 SYMBOL 245,254, 254, 192, 192,254, 
192,254, 254 


760 SYMBOL 246,192,192,192,192,192, > 


192,254, 254 


770 SYMBOL 247,28,65,63,127,126,126 : 


,28 

780 SYMBOL 
24,24 

790 SYMBOL 
800 RETURN 
810 DATA 21.90,1,100,49, 106,83, 108, 
-155,108,171,108,211, 104,249, 96,285 
,80,311,72,363,64,433,58,-515, 58, 52 
5, 58,539, 62,559, 78,573, 88, 589, 96, 60 
9,110,619,120,627,130,637,144,-1, 
820 DATA 21,90,1,100,1,134,1,156,5, 


249,295, 129,255 


248,24,24,126,126,284,24, ) 


XV 


LC 





170,13, 180,21, 186,29, 186,35, 190,39, 
200,39,210,45,214,-89, 214,93, 214,99 
.210,105, 198, 109, 180, 109, 182,115, 14 
6,133,130,155, 118,209, 110, 249, 112, - 
287,112,295,112,307, 114,313, 122,313 
136,323, 172,323, 180,327, 186,233, 18 
b 
830 DATA 333,194,335, 194,339, 196, 34 
7,196, 347,214, 349,220, 353, 224, 359,2 
24,359, 238,363, 240, 349, 242, 375, 242, 
375, 256, 379, 260, -427, 260,431, 260,43 
7,258,441,254,443,234,451,204, 465, 1 
84,481, 180,499, 180, 517, 186,525, 194, 
535,196,-583, 196,589, 196,599, 192, 60 
5,186, 613 


840 DATA 170,619,143,625,136,629,13 à 


6,633, 136,637, 136,-1, 
850 DATA 21,90,1,100,1,126,11, 140,3 
7,156,77,162,-131,162, 145, 182, 153,1 
60,161,154,167,140, 173, B6, 173,54, 17 
7,44,185,40,-237, 40,243, 42, 247, 50,2 
47,92,255,132,261,142,279,148,279,1 
74,283, 178, 293, 178, 293, 204, 299, 208, 
-351 ,208, 357, 208, 359, 206, 399, 178, 26 
5,174 
860 DATA -407,174,413,174,419, 170,4 
55,80,473,74,-541,74,547,78,553,84, 
559, 108,567, 116,-625,116,633, 114,63 
7,108, -1, 
870 DATA 21,90,1,100,1,112,9.112,13 
.114,19,120,27,134,35, 142,47, 146, -9 
7,146, 115, 144,127, 140,135, 132, 143, 1 
14,157, 108, -221, 108, 227, 108, 239, 110 
,245, 114,251, 122,259, 138, 265, 144, 28 
5, 148, 303, 148, 313,146,323,128, 327,1 
24,329,96, 325, 8b, 309, 78, 243, 74, 247, 
64,243,42 
880 DATA 249,34,259, 28, -301,28, 343, 
28,371,28,3 en 34,408! 40,409, 
48,415,62,419,80,419, 118,421, 124,42 
7,128,441,128,441,174,447, 180, 481,1 
80,461, 214,467, 220,-517, 220,525, 220 
,535,214,543, 196,545, 180,551, 172,55 
7,168,-607, 168,615, 168,627, 166,633, 
158, -1, 
890 DATA 21,90,1, 100,1, 272,9, 278,35 
,282,41,278,49, 264,53, 238, 65, 224,75 
,218,-125,218, 135,220, 141, 228, 145,2 
58, 149,264, 155, 268, -201, 268, 207, 268 
,213,264,219, 250, 223, 234, 225, 200, 22 
1,178,213, 166, 191,152, 171, 148, 163, 1 
42,155,128,153, 108, 157,82, 161,66, 17 
1,60,-227 
900 DATA 60,233, 60, 239, 64, 245, 74,2 
1,94,257, 104,287, 122,273, 172, 277,22 
0,285, 230, 291,230, 299, 222, 303, 208,3 
09,194,317,194,325, 192,329, 188,333, 
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PE 


w. 


AR 


me 


HN 


:MH 


>GF 


176,337,124,331,116,323,110,315,96, 


309, 66, 309,42, 315, 26,323, 22, -387, 22 
,391,26,393,32,399, 120,403, 124,411, 
128,417 

910 DATA 128,417,176,419, 182,425, 18 
8,435, 188, 449, 220,457, 226, 485, 224, - 
903, 224,513, 226, 519, 224,525, 216, 527 
,206,521,192,515, 174,509, 136, 501, 12 
4,485, 100, 479,72, 479,50, 487, 30,505, 
20,-559, 20,568, 20,569, 28,575, 70, 581 


76, 9689,80,591, 80,-633, 80, 637, 80, -1 


920 DATA 21,90,1,100,29, 108,63, 140, 
81,188,89,256,-301, 296, 313, 262,323, 
268, 347,286, 361, 270,385, 256, -551,25 
5,557, 222,573, 172,587, 140,-637, 140, 
638, 140, -1, 
930 DATA 21,90,1,100,25, 154,67, 186, 
141,204,-199,204, 217,204, 255, 188, 28 
5,154, 285, 112, 269, 80, 235, 66, 195,66, 
167,54,145,32, 145, 10,-287, 10,307, 18 
,329,38,361,68,373, 120,367, 164,269, 
92,377,230,407, 276,469, 318,517, 330 
,593,322,625, 330, 637,330, -1, 
940 DATA 21,90,1,100,19, 174,-85, 174 
,-135,174,-177,174,-243, 174,279, 174 
enr 
4,-555,174,5099, 174,637, 174,-1, 


950 DATA 21,90,1, 100, ir 76,35,66,55 : 


,58, 79,52, 105,56, 123,74, 137,112, 149 
,166,163,220, 185,256, 209,278, 235, 29 
0, 281,298, 371, 304,451, 296,525, 274,5 
41,260,543,236, 525, 214,479, 212,425, 
218,349, 238, 273, 232, 223, 202, 205, 160 
,209,144,-273, 144,283, 144,299, 132, 2 
91,108 


960 DATA 269,96, 243,98, 209, 90, 201,7 


4,207,52,221,40,-277,40,299,32,347, 
24,391,36,435,74,453,128,475,16B,-5 
71,168, 595, 188, 815, 212, 623,238,62%7, 

268,613,294,597, 310 603,320, 623, 330 
637, 330,-1, 

970 DATA -i, 

980 RESTORE 990:F0R i=1 TO 11:READ 

fr,du,es:SOUND 1,fr,du,15:FDR j=i T 
0 es+2.3:NEXT:NEXT: RETURN 

990 DATA 426,40, 600, 426,50, 500, 426, 
30,300,426, 30,600, 358, 50,300, 379,30 
,300,379,30,500, 426, 30, 300, 426, 30,5 
90,451,30, 300, 426, 25, 100 

1000 in=1:pe=1:n=0: MODE 1:INK O,1:1 
NK 1,24:INK 2,11:INK 3,6:BORDER 15: 
PEN S:LOCATE 16,1:PRINT "HE": 
LOCATE 16,2: :PRINT"#"::PEN 1:PRINT" 
SKYHAWK";:PEN 3:PRINT'"#":LOCATE 16, 
3: PRINT "ae": MINDOWHH, 3,20, 6, 
22: PAPER#1,3:CLS#1 





NT 


>FQ 


MM 


XD 


VF 
HN 





1010 PEN#,2:FRINTHL:FRINTHL." Regl 
es":PRINT#1:PRINT#1," Joystick/Clav 
ier":PRINTHL:PRINT#1 ," Debutant":PR 


INT#I:PRINT#," Confirme":PRINT#1:P 


RINT#1," As": PRINT#I:PRINTHI," Attr 

action":PRINTH#I:PRINT#1," Inertie": 

PRINT#L:FRINT#1," Play the Game": ii 

=û 

1020 GOSUB 1930:G0T0 1040 

1030 MOVE 42,308-1i:DRAUR 268,0,2: 

RAMR O,-26:DRAUR -26B,0:DRAUR 0,26: 

RETURN 

1040 WHILE INKEY$="":MEND: IF INKEY{ 

47)=0 OR INKEY(76)=0 THEN PRINT" ": 

IF ji=224 THEN ii=0:G0T0 2G ELSE ON 
11/32+1 GOSUB 1100,1170,1200,1250, 

1300,1350, 1370 

1950 IF INKEY(18)=0 OR INKEY(6)=0 T 

HEN INE 1,24: BORDER Î:MODE 1:END 

1060 IF INKEY(0)=0 OR INKEY(7 

HEN GOSUB 1030:ii=ii+(32#(ii;0)):60 

SUR 1030 

1070 IF INKEY(2)=0 OR INKEY(73)=û T 

HEN GOSUB 1030:ii=ii-(32#(i14224)): 

GOSUB 1030 

1080 GOTO 12940 

1090 SOUND 1,239,12,8:G0SUR 1030:F0 

R j=1 TO 25:NEXT:GOTO 1040 

1100 WINDOW#2,23,38,7,21:PAPER#2,2: 

CLS#2: PEN#2, 3: PRINT#2," SEYHAUK est 
un jeu d'arcade se deroulant sur 
plusieurs ta- bleaux de diffi-cu 

Ite croissante Si vous arri- vez a 

u terme de ces 9 tableaux vous aur 

ez droita une petite me-"; 

1110 PRINT#2,"lodie : Le Til- leul 

de Schubert <ESPACE:":GOSUR 1160 


1120 CLS#2:PRINT#2," Votre mission 
est d'atterrir sur les plates-fo 
rmes disposeesca et la. Malheu reus 
ement vous devez vous posera vitess 
e redui-te pour eviter un crash 1 
L'at-traction et l'i-nertie present 
essur cette plane-te <ESPACE}" 
1130 GOSUB 1160:CL5#2:PRINT#2," vo 
us poseront des problemes. Evitez 
aussi les parois ! Avant de commen 
cer la partie vous de-vez selection 
nerle niveau de difficulte qui vous 
convient et e- ventuellement ch 
anger diffe- rents parametres  <E 
SPACE" 
1140 GOSUR 1160:CLS#2:PRINT#2, "(gra 
vitation et inertie). Pour revenir 
au menu pendant une par-tie, appuy 
ez une fois sur <DELE-TE?, Vous dev 


+1 


CP 


JV 


MC 


E=0 T } 


>FU 


:ME 


FLD 


ez choisir un ni- veau de difficul 
te avant chaque partie (sans ce-la 
vous accedez au mode ‘entrai-": 
1150 PRINT#2, "nement "). 

NE CHANCE":FOR i=1 TO 25000:NEXT:PA 
PER#2, 0: CLS#2: RETURN 

1166 WHILE INKEY(47) 40: WEND:FOR i= 
1 TO SO:NEXT: SOUND 1, 1000, 50: RETURN 





:CLS#2:PEN#2,3:PRINT#2," Joystic 
k ou fleches ? J/F 
"HHHILE INKEY(S3)<50 AND INKEY (45) 4 
0: WEND 
1180 IF UPPER$(INÉEY$)="J" THEN ji= 
72:j2=74: j3=75 ELSE ji=: j2=8: j3=1 
1190 PAPER#2, Q:CLS#2: RETURN 
1200 IF n£;0 THEN ON n GOSUR 1220,1 
230,1240 
1210 n=1:ii=64:G0SUB 1030:RETURN 
1220 RETURN 
1230 ii=96:G0SUB 1030:RETURN 
1240 ji=128:G0SUB 1030:RETURN 
1250 IF n£0 THEN ON n GOSUR 1270,1 
280, 1290 
1260 n=2:1i=96:G0SUR 1020:RETURN 
1270 ii=64:GOSUR 1020:RETURN 
1280 RETURN 
1290 1i=128:G60SUE 1030:RETURN 
1300 IF n£>0 THEN ON n GOSUB 1320, 1 
330, 1340 
1310 n=3:ii=128:GOSUR 1030:RETURN 
1320 ii=64:GOSUR 1030:RETURN 
1530 11=96:G0SUB 1030:RETURN 
1340 RETURN 
1350 HINDOW#2, 25,38, 11,17: PAPERKE, 2 
:CLS#2:FEN#2, 3: LOCATE#?, 1,2:PRINT#? 
" taux normal de pesanteur 
ÿZU (! nouveau taux 
(0/9)":a$="":HHILE INKEY$<>"": WEND 
HHILE pe{48 OR pe>57:WHILE a$="":a 
$=INKEY$: END: pe=ASC (a$) : WEND 





#EL 


#DX 


1560 pe=(10+pe-48)/10:PRINT" ":PAFE ; 


RH2, 0: CLS#2: RETURN 
1370 WINDOW#2, 23,38, 11,17:PAPER4?, 
:CLS#2: PEN#2, 3: LOCATE#2, 1,2: PRINT#2 
," taux normal d' inertie 
Ô nouveau taux 

(6/9) ":a$="":MHILE INKEY$<>"": WEND 
HHILE in<48 OR in>57:HHILE a$="":a 
$=INKEYS$ : WEND: in=AGC (a$) : WEND 


D 


#HC 


1380 in=(10+in-48)/10:PRINT" ":PAPE } 


R#2,0:CLG#2: RETURN 
>RM 
XT:FOR j=1 TO 72:READ i1,i2,i3,i4,i 
S,16:SOUND 1,i1,i2#1.2:SOUND 2, i3,i 
441,2: S0UND 4,15, i6*1.2:NEXT: RETURN 
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BON 


1170 MINDOW#2, 23,38, 13, 15: PAPERK2,2 ? 


1390 FOR i=1 TO 100:RESTORE 1400:NE : 


WU 


RM 


XP 
#HH 


?BL 
3EJ 
>XH 
>YD 
>HT 


BY 
?X6 
?FE 
#YJ 
HA 


CU 
?XC 
2XJ 
?FE 
2MT 








1400 DATA 119,10,142,10,179,10,119, >PG 
30,142,30, 179,30, 142, 10,179, 10,239, 
10,142,10,179,10,239, 10,142, 10,179, 
10,239, 10, 142,20, 179, 20, 239, 20, 179, 
20,239,20,284,20,0, 10,0, 10,0, 10, 179 
,10,239, 10,284, 10,159, 30, 190, 30, 239 
,30,142,10,179,10,239,10,134,15,159 
,15,239,15 

1410 DATA 159,5,190,5,239,5, 142,40, 
179,40,179,40,0,10,0,10,0,10,119, 10 
,142,10,179,10,119, 30, 142, 30, 179, 30 
,142,10,179,10,239,10, 142, 10,179, 10 
,239,10,142,10,179, 10,239, 10, 142,20 
,179,20,239, 20, 179, 20,239, 20, 284, 20 
10,10,0,10,0,10, 179,10, 239, 10, 284, 1 
0,159, 30 

1420 DATA 190,30, 239, 30, 142, 10, 179, 

10,239,10,119,7,142,7,239,7,134,7,1 
59,7,239,7,159,7,190,7,239, 7, 179,40 
179,40, 179, 40,0, 20,0, 20,0, 20, 179, 1 


>HBR 


2JY 


0,179, 10,179, 10,159, 30, 190, 20, 229,3 


0,159, 10,190, 10,239, 10,159, 10,190, 1 
0,239,10,159, 10,190, 10,239, 10, 142, 1 
5,179, 15 

1430 DATA 179,10,134,5,159,5, 179, 10 
,119,20,142,20,179,20,0, 10,0, 10,0, 1 
0,119,10,142,10,179,10, 106, 30,134, 3 
0,179,30, 119,10, 142, 10, 179, 10, 142,1 
0,179,10,239, 10,179, 10,179, 10,284, 
0,159, 40,190, 40,239, 40,0, 10,0, 10,0, 
10,159, 10,190, 10,239, 10,159, 30,190, 
30,239 

1440 DATA 30,159, 10,190, 10,239, 10,1 
59, 10,190, 10,239, 10, 159, 10, 190, 10,2 
39,10, 142,15, 179,15, 179, 10, 134,5, 15 
9,5,179,10,119,20, 142,20, 179, 20,0, 1 
0,0,10,0,10,119,10,159, 10,177, 10,89 
,20,142,20,179,20,119,10,142,10,179 
,10,142,10,179,10,179, 10,134, 10,159 
,10,239,10 

1450 DATA 159, 10,190, 10,253, 10,119, 
40, 142,40, 284, 40,0, 10,0, 10,0, 10,119 
10,142, 10,179, 10,89, 20, 142,20, 179, 
20,119,10,142, 10,179, 10, 142, 10,179, 
10,179,10,119,7,142,7,239,7,134,7,1 
59,7,239,7,159,7,190,7, 239,7, 179, 40 
,179,40, 179,40 

1460 RESTORE 1470:FOR i=1 TO 21:REA > 
D hi,h2:SOUND 1,h1,h2,8: SOUND 2,h1/ 
3,h2,8:SOUND 4,h1/5,h2,8:NEXT:RETUR 
N 

1470 DATA 239,80,213,20, 190, 20, 179, 
20,159, 20, 142,40, 127,40, 119,60, 0, 20 
,119,40,127,20,142,20, 159,30, 179, 10 
1190,20,213,20,239, 10,213, 10,190, 10 
,179,10,159,20 
1480 RETURN 


>EP 


PE 


LA 


TY 


>F6@ 





PACKY est, 
auteur, une modeste adap- 


tation du célèbre ‘‘Pac- 
Man’. Pourquoi publier ce 
jeu vu et revu ? Il nous a 
séduit par sa ressemblance 
avec l'original et surtout, il 
est 100% BASIC, ce qui ne 
gâche rien. De plus, il n’est 
pas évident de parvenir au 
but sans se faire attraper 
par un des quatre fantômes. 


Vous pourrez retrouver l’am- 
biance de Pac-Man (la vitesse en 
moins tout de même) sur plus de 
quatre labyrinthes différents. 
Pour cela, il vous faut taper les 
17 Ko de BASIC qui suivent. 
Quelques précisions : au départ, 
chaqué tableau comporte huit 
pilules énergétiques. A partir du 
cinquième et jusqu’au huitième, 
vous devez parcourir les mêmes 
labyrinthes avec deux pilules 
seulement, au-delà il n’y a plus 
de pilules du tout ! 

Quelques astuces : pour visiter 
les différents tableaux un à un, 
faites BREAK (deux fois 
ESC”) puis NV =3 : GOTO 
100 (par exemple) pour accéder 
au quatrième labyrinthe. En 
effet, les tableaux sont numéro- 
tés à partir de zéro ; la variable 
NV doit donc contenir le 
numéro désiré moins un (NV = 
X-1 : GOTO 100). 


selon son 


PACKY 


Laurent LE BAIL 


gel Q 





10 “AH LA 
HHH 

20 INTRO PACKY LB 
25 ‘HERO LG 
#4 

30 MODE O:SPEED INK 10,10: INK 0,0:I >JU 
NK 1,18: INK 2,24: INK 3,26: INK 4,6:1 

NK 5,2:1INK 6,8: INK 7,15: INK 8,25, 20 
:INK 9,1:PAPER O:BORDER 0 

40 PLOT 112,384,4 LJ 
50 DRAW 112,256,4:DRAW 80,384,4:DRA >C6 
W 176,336,4:DRAW 80,288, 4 

60 PLOT 176,256,2:DRAW 224,384,2:DR >AL 
AW 272,256,2:DRAW 176,320,2:DRAM 27 
2,320,2 

70 PLOT 352,384,5:DRAW 288,320,5:DR NL 
AW 352,256,5 

80 PLOT 384,384,3:DRAW 384,256,3:PL >AU 
OT 448,384,3:DRAN 384,320,3:DRAW 44 
8,256,3 

90 PLOT 480,384,6:DRAW 512,320,6:PL >FQ 
OT 560,384,6:DRAW 480,256, 6 

120 INK 10,6,23:INK 11,2,23:INK 12, DFJ 
8,23: INK 13,15,23: INK 14,0,26 

130 LOCATE 3,16:PEN 1:PRINT'"LLB PR >GQ 
ODUCTIONS" 

140 LOCATE 3,25:PEN 8:PAPER 9:PRINT >DV 
"Le jeu se charge" 

150 RUN'packyi" > 
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10 HÉHEEMNEX LA 
#3 

2 ‘ PACKY )LB 
30 ‘HIHI LC 
Lies 

40 ‘ )LD 
50 DIM T$(20,25):DIM T(20,25):REC=0 >EA 
:REC$="00000" : SC0$="00000" 


60 GOSUB 3000 >HA 
70 GOSUB 30000 >PD 
80 GOSUB 20000 >PD 
90 SC0$="00000" >TG 
100 GOSUB 10000 3V6 
110 GOSUB 3500 >PB 
120 GOSUB 3000 >WK 
150 G0SUB 2000 >NH 
140 GDSUB 4000 >PA 
150 GOSUB 6000 >PD 


160 GOSUB 7000 PF 
170 SCO=SC+100000: SCO$=RIGHT$ (STR${ >DH 
SC0) ,5) :LOCATE 1,1:PAPER 1:PEN 15:P 
RINT"SC:"; SCO$: PAPER 0 
180 ‘### TEST FIN DE TABLEAU ###  DRK 
190 IF P=0 THEN SC=5C+500: IIK 1,9,7 >XH 
:FOR 1=1 TO 5:FOR N=100 TD 20 STEP 
-1:SOUND 1,N,1,12:SOUND 2,120-N, 1,1 
2:NEXT N:NEXT I: INK 1,9:60T0 100 
200 GOTO 130 NYC 
210 ‘##t GAME OVER ### >RD 
220 PAPER 4:PEN 8:LOCATE 6,13:PRINT RQ 
"GAME OVER" 
230 IF REC<SCO THEN REC=SCO:RECS=RI >YD 
GHT$ (STR$ (REC) ,5) 








249 FOR PAUSE=1 TO 5000:NEXT:GOTO 6 DZ 
û 
2000 
Hi 
2010 ‘ n  DEPLACEMENT PACKY XF 
2020 POP EPP IC 
#4 

2030 IF C=Ct AND L=LI OR C=C? AND L NB 
=L2 OR C=C3 AND L=L3 OR C=C4 AND L= 
L4 THEN IF CH=-1 THEN 2200 ELSE FOR 

Ée TO 40:SOUND 1,10+10#1,2,15:S0U 

D 2,5+20#1,2,15:NEXT I:VI=VI+1: IF 

Ne THEN LOCATE 14+VI42,25:PAPER 1 

:PRINT " "::PAPER 0:G0T0 2150 ELSE 


RON EEOERR TE 


22 

2040 X=L:Y=C: D=JOV (0) > 
2050 C=C+(D=4)-(D=8) 5NR 
2060 LEL+(D=1)-(D=2) NC 
2070 IF C=21 AND L=14 THEN Cz1 VE 
2080 IF C=0 AND L=14 THEN C=20  >VH 


2090 IF T(C,LI*2 OR D+6 OR D=Q THEN :TX 
C=Y:L=X:RETURN 


2100 LOCATE Y,X:PRINT " ":PEN 2:LOC >FU 
ATE C,L:PRINT CHR$(245+D) 
2110 IF T#(C.L)=CHR$(144) THEN T$(C PQ 
4L)=" "FOR I=1 TO S:SOUND 1,100-10 
#1,1:SOUND 2,200-204T,1:NEXT 1:SC=5 
C+ixBO:P=P-1 
2120 IF T$(C,L)=CHR$ (252) THEN T${C 
L)=" "iSC=SC+10:CH=- 1: FOR 1<4 TO 7 
INK I,ZS:NEXT I:F=P-1: AFTER 1000-N 
V#100 GOSUB 900G:AFTER 1500-NV#100, 
1 GOSUR 9070:FOR 1=1 TO 10:SOUND 1, 
J0-5#1,1,13:S0UND 2,100-5%1,1,13:NE 
XT I 
2130 IF C=C1 AND L=Li OR C=C2 AND L >NC 
=L2 OR C=C3 AND L=L3 OR C=C4 AND L= 
L4 THEN IF CH=-1 THEN 2200 ELSE FOR 
1=1 TO 40: SOUND 1,10+10%1,2,15:S0U 
ND 2,5+20#1,2,15:NEXT [:VIEVI+I:IF 
VI£4 THEN LOCATE 14+VI#2,25:PAFER 1 
PRINT " "s:PAPER O:GOTO 2150 ELSE 
Pi 
2140 RETURN FA 
2190 “HHHRH4EFFACT FANTOMES#KHRHRE YA 
#6 
2160 FOR PAUSE=I TO 2000:NEXT 7 X4 
2170 LOCATE CI,LI:PEN 3-5#(T(C1,L1) UN 
=2):PRINT T$(C1,L1):LOCATE C2,L2:PE 
N 3-5#(T(C2,L2)=2): PRINT T$(C2,L2) 
2180 LOCATE C3,L3:PEN 3-5#(T(C3,LT) >VG 
=2):PRINT T$(C3,L3) :LOCATE C4,L4:PE 
N 3-S#(T(C4,L4)=2):PRINT T$(C4,L4) 


DP 


se 


2190 GOTO 110 EE 


2216 IF C=Ci1 AND L=L1 AND M1=0 THEN >PU 
M1=1:60T0 2260 

= IF C=C2 AND L=L2 AND M2=0 THEN >PZ 

2=1:6070 2260 

IF C=C3 AND L=L3 AND M3=0 THEN PE 
M3=1:60T0 2260 

2240 IF C=C4 AND L=L4 AND M4=0 THEN GB 
M4=1:G0T0 2260 

2250 GOTO 2040 MC 
2280 SC=8C+100 STE 
2270 IF Mi=1 AND M2=1 AND M3=1 AND ER 
M4=1 THEN BO=5: INK 3,24, 26 

2280 FOR 1=1 TO 20:SOUND 1.600-30%1 NH 
2,15: S0UND 2,700-30+1,2,15:NEXT 

2290 G0TO 2040 MG 
ZO00 RARE LE 
Lits: 

3010 “EN INITIALISATION ÿx6 
2020 APP POEMENE ÂH 
#+##4 

3030 SYMEOL 245,60, 124,219, 255,189, MT 
195,255, 219 

3040 SYMEOL 244,60,66,185,129,189,1 LC 
95, 129,219 

3050 SYMBOL 246,44,110,229,235,255, >LC 
255, 126, 60 

3060 SYMBOL 247,60,126,255,255,235, LE 
239,110,44 

3070 SYMBOL 249,60, 126, 239,255, 15,2 KR 
55, 126, 60 

3080 SYMBOL 253,60, 126, 247,255,240, LD 
255,126, 60 

3090 SYMBOL 250, 60,126, 239,255, 15,2 3KK 
55, 126,60 
3100 SYMBOL 
55, 126,60 
3110 SYMBOL 252,0,0, 


251,60,126,23 


9,255,15,2 DKC 
24,60,60,24,0,0 DAT 


3120 MODE Ô PA 
3130 INK O,0:INK 1,9:INK 2,24: INÉ 3 EB 
,2b:INK 4,6: INK 5,2: INK 6,8: INK 7,1 
S:INE 8,16,24:INE 9,21: INE 10,26: IN 

K 15,7:BORDER Ü:PAPER 0 

3140 SC=0: A=û: B=0: VI= 1: NV=0 7WK 
3150 RETURN FC 
3500 ‘##kk+INITIAL. PARTIELLE######4 YA 
#4 

3510 PAPER 1:PEN 2:FOR 1=20 TO 16+V >V7 
142 STEP -2:LOCATE 1,25:PRINT CHR$( 
249);:NEXT I:PAPER Ô 

3520 L=24:C=11:PEN 2:LOCATE 11,24:P RV 
RINT CHR$ (249) 


3530 C1=7:L1=10:DL1=0:DCI=-1 >WM 
3540 C2=14:L2=10:DL2=0: DC2=1 WU 
3550 C3=8:L3=8:DL3=0: DCI=-1 3VH 
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2200 HF ANTOMES MORTS HE 764 
Lise 





3560 C4=13:L4=8:DL4=0: DC4=1 ?VM 
3570 CH=1 :DG 
2580 M1=0:M2=0:M3=0: M4=0: BO=1 #XC 
3590 RANDOMIZE 5 #0 
36ü0 RETURN FC 


4000 ‘HRRERERREEERERREREEERERREEE : XG 
#4 F : 


4010 © MM DEPLACEMENT LINE Un :XH 
4020 FRAPPE CA] 
#44 


4030 IF Mi=i THEN LOCATE CI,LI:PEN FK 
10: PRINT CHR$ (244) : RETURN 


4040 X=C1:Y=Li #XJ 
4050 C1=C1+D01 FE 
4060 Li=Li+DLi :RK 


4070 IF C1=21 AND Li=14 THEN Ci=i :YN 
4080 IF C1=0 AND L1=14 THEN Ci=29 3VR 
4090 PEN 3-5#(T(X,Y)=2) ?QU 
4100 LOCATE X,V:PRINT T$(X,Y) #Y] 
4110 LOCATE C1.L1:FEN 4:PRINT CHR$( GW 
245) 

4120 IF T{CI,L1)=0 OR T(C1,L13=2 TH KT 
EN RETURN 


4130 DC1=0:DL1=0 GE 
4140 IF A=i THEN 4200 NE 
4150 IF A=2 THEN 4250 NT 


4160 DLI=CH#SGN(L-L1):IF DLI=O OR T UC 
(Ci,L1+DL1);2 THEN DL1=0:DC1=CH#GGN 
{C-C1) ELSE RETURN 

4170 IF DCI=0 THEN DCi=(INT (RND#2)- HE 


,5)#2 
4180 IF T(Ci+DC1,L1)>2 THEN A=1:G0T >GA 
0 4150 
4190 RETURN FH 
4200 DL1=CINT (RND#2) -0. 5) #2 VD 


4210 IF T(CI,L1+DL1)>2 THEN DLI=-DL C0 
1 
4220 IF T(CI,L1+DL1)>2 THEN A=0:DL1 :MW 


=(: RETURN 

4230 A=2 +UJ 
424G RETURN FD 
4230 DC1=CHKSGN (C-C1) PE 


4260 IF T(Ci+DC1,L1)>2 THEN A=i:DC1 >MG 

=0:RETURN 

4270 A=0 ?VA 

4280 RETURN >FH 

5000 RLLLLLEELLS ELLES SSL :XH 

+44 

5010 ‘ DEPART FANTONES XJ 
20 RERO EEEE >XE 

#4 

5030 LOCATE 9,13:PEN 4:PRINT CHR$(2 >RA 

45):LOCATE 12,13:PEN S:PRINT CHR$ (2 

45):LOCATE 10,13:PEN 6:PRINT CHR$ (2 

45):LOCATE 11,13:PEN 7:PRINT CHR$ (2 

45) 

5040 RESTORE 5150 ?LV 





3050 FOR F=i TO 4 


9060 FOR I=i TO 7 

9070 READ J,7 

JOBS LOCATE J,Z:PEN G4F:PRINT CHR$( 
245) 

2090 FOR PAUSE=1 TO 1GO:NEXT 

9100 LOCATE J,Z:PEN SPRINT T$(J,2) 


g1i0 SOUND 1,15,1 

dt20 NEXT I 

9150 READ J,Z:LOCATE J,Z:PEN I+F:FR 
INT CHR$ (245) 

S14ÿ NEXT F 


5150 DATA 9,13,9,12,10,12,10,11,10, ?QE 


10,9,10,8,10,7,10,12,13,12,12,11,12 
1,11,11,10,12,10,13,10,14,10,10,1 
3,10,12,10,11,10,10,9,10,8, 10,8,9,8 
811,13,11,12,11,11,11,10,12,10,13 
,10,13,9,13,8 

5160 RETURN 


OT ARÉAARERANREREEERERARREREERRES 


Les 


8010 ‘ DEPLACEMENT PUNKY 


6020 ‘ANNEE 


#4 

6030 IF M2={ THEN LOCATE C2,L2:PEN 
10: PRINT CHR$ (244) : RETURN 

6040 X=C2: V=L2 

6Ü5Q C2=C2+DC2 

b0ëG L2=L2+DL2 

6076 IF C2=21 AND L2=14 THEN C=i 

608G IF C2=0 AND L2=14 THEN C2=20 

609û PEN 3-S#(T(X,Yi=2) 

6100 LOCATE X,Y:PRINT T$(X,Y) 


biiû LOCATE C2,L2:PEN SPRINT CHR$i à 


245) 


6120 IF T(CZ2,L2)=0 OR T(C2,L23=2 TH 


EN RETURN 

6130 DC2=0:DL2=0 

6140 IF B=1 THEN 6200 
6150 IF B=2 THEN 6250 


6160 DCZ=CHKSGN(C-C2): IF DCZ=0 OR T à 


(C2+D02,L2) :2 THEN DC2=0:DLZ=CH#SGN 
(L-L2)ELSE RETURN 


6170 IF DL2=0 THEN DLZ2=(INT (RND#2)- 


0.5) #2 


6186 IF T{C2,L2+DL2);2 THEN B=1:60T ) 


0 6150 

6190 RETURN 

6200 DC2= (INT (RND#2)-0.5) #2 

6210 IF T{C2+DC2,L2);2 THEN DC2=-DC 
2 


6220 IF T(C2+DC2,12)}2 THEN B=0:DC2 + 


=0: RETURN 

6230 B=2 

6240 RETURN 

6250 DL2=CH#5GN (L-L2) 


BJ @ 6260 IF TIC2,L2+DL2):2 THEN B=t: DL 


?CF 
JC 
*BU 


WA 
DM 


VB 
FF 








=: RETURN 

6270 E=û 

&280 RETURN 

7000 ARRETE 
++ 
JUS 
7620 
##+ 
7030 IF M3=1 THEN LOCATE C3,L3:FEN 
IG:PRINT CHR$ (244) :G0TO 7170 

7640 X=C3:Y=L3 

7050 CI=C3+DCS 

7060 LISLEHDLE 

7070 IF C3=21 AND LI=14 THEN C3=t 
7080 IF C3=G AND L3=i4 THEN C3=2û 
7090 PEN 3-5#(T(X,Y)=2) 

7100 LOCATE X,Y:PRINT T#$(X,) 


DEPLACEMENT COCA ET COLA 
D APEAOTOPENPANOPTOPREEEEX 





7110 LOCATE C3.L3:FEN 6: PRINT CHR$( :G 


245) 


7120 IF T(CS,LS)=G OR TIC, L3)=2 TH à 


EN GOTO 717Ù 
7130 DC3=0:DLI=0 


7140 DC3S=CH#SGNIC-CS) + IF DC3=0 OR T à 


(CS+DCS, LI) +2 THEN DCS=0: DL3=CH*5GN 
{L-LI)ELSE GOTO 7170 


7150 IF DL3=0 THEN DLZ=CINT (RND#2)- 


G,5)#2 


7160 IF T(CS,L3+DL3) 2 THEN DC3=0:D : 


3=0 

7170 IF M4=1 THEN LOCATE C4,L4:PEN 
10: PRINT CHR$ (244) : RETURN 

8606 X=C4:Y=L4 

8010 C4=C4+DC4: L4=L4+DL4 

8020 IF C4=21 AND L4=14 THEN C4=i 

8030 IF C4=0 AND L4=14 THEN C4=20 

8040 PEN 3-5#{T(X,Y)=2) 

8050 LOCATE X,Y:PRINT T$(X,Y) 


8060 LOCATE C4,L4:PEN 7:PRINT CHR$( GP 


245) 


8070 IF T(C4,L4)=G OR TiC4,14)=2 TH K 


EN RETURN 

BO8O DC4=0:DL4=0 

8090 DL4=CH#SGN(L-L4): IF DL4=0 OR T 
(C4,L4+DL4) >? THEN DLà=0:DC4=CHXSGN 
(C-C4) ELSE RETURN 

8100 IF DC4=0 THEN DC4=(INT (RND#2) - 
0,5)#2 

8110 IF T(C4+DC4,L4);2 THEN DC4=0:D 
L4=0 

8120 RETURN 

GOGC MANN 
#44 

9010 FANTOMES CLIGNOTANTS 
0020 ‘AIMER 
#4 


$QE © 9030 FOR 1=4 TO 7 


19 


Fk 


:YE 


de: 


un 


#VU 
2 


YA 





>HJ 


UN 


:HH 


>FY 


FE 
B 


»YC 
»YD 


9040 INE I,1,27 

GG5û NEXT I 

965 RETURN 

9070 INE 3,26:INE 4,6:INE 5,2:INE ë 
SS:INE 7,15 

9000 CH=f:M1=0: M2=G: MI=G: M4=û: BO=1 


9690 RETURN 


LOC ARR RER 


#54 
1GH0 DECOR 





“LZ 


10020 RME CT 


EEE. 

19030 MODE G:SPEED INF 10.15 

10640 PEN 8:IF NV£Z THEN FRINT" 
DANS QUELQUES  M":PRINT"  INSTANTS 
LA SUITE ":PRINT" DE NOTRE FROGRAM 
ME" 


100506 IF NV=2 THEN PRINT'UN INSTANT ÿE 


! PACEY À":PRINT'PERDU 
URE" 
10065 IF NV=5 THEN PRINT" FACEY À 
UNE ENVIE ":PRINT" PRESSANTE, 
"PRINT" EXCUSEZ LE "aPE 
N S:LOCATE 8,15: PRINT"2 VIES":LOCAT 
E 3,17: PRINT'SUPFLEMENTAIRES":VI=VI 


UNE CHAUSS 


19070 IF NV:3 THEN PRINT" FACEY RE 
PREND SON ":PRINT" SOUFFLE 
"PRINT" DUR ! DUR ! ; 


10080 PEN G:PRINT FRE(" ") 

10096 NV=NV+1 :P=0:FIL20: TABLENV-INT 
(NY/4) #4 

19100 PEN G:PRINT REMAIN(O):PRINT R 
EMAIN (2) 

10110 INÉ O,0:INE 1,92:INE 2,24: INE 
3,26:INE 4,6:INK 5,2:INK 6,B:INE 7, 
15:INE 8,16,24:INE 10,26: INK 15,7:8 
ORDER Ô:FAPER © 

10120 IF TABL=i THEN RESTORE 10270 
10130 IF TABL=2 THEN RESTORE 10540 


10140 IF TABL=3 THEN RESTORE 10800 
10150 IF TABL=0 THEN RESTORE 11060 
10160 FOR L=1 TO 25 

10170 FOR C=1 TO 20 

10180 READ X 

10190 SOUND 1,X#5+50, 1,12 

10200 IF X=0 OR X=1 THEN P=P+1:PEN 
3:T$(C,L)=CHR$(144) ELSE IF X=3 THE 
N T${C,Li=" " ELSE IF X=2 THEN PIL= 
PIL+#1:P=P+1:PEN B:T$(C,L)=CHR$ (252) 
ELSE PEN 1:T$(C,L)=CHR$ (143) 

10210 IF X=2 AND NV>4 AND PIL52 OR 
X=2 AND NV>8 THEN PEN 3:T$(C,L)=CH 


2CK RS (144) : X=0 


YF 


:TG 
:PG 


MH 


QY 


:BD 
BF 


>B6 
>D 
LF 
LR 
>1D 
TH 
>QY 


CE 





16280 TIC,L)=X 
10230 LOCATE C,L:FRINT T#{C,L): 
19240 NEXT:NEXT 


10250 T$(11,241=" ":Pep-1 


10260 LOCATE 1,1:FEN 15:PAPER 1L:PRI à 


NT°SC:";SCO$: LOCATE 12,1:PRINT"REC: 
MREC#: PEN 15:LOCATE 1.29:PRINT "TA 
B';NV::PAPER © 


10270 DATA 4,4,4,4,4,4,4,4,4,8,4,4, à 


4,4,4,4,4,4,4,4 


10280 DATA 4,1,0,0,0,0,1,0,0,1,1,0, 5P 


0,1,0,0,0,0,1,4 


16290 DATA 4,2,4,4,4,4,0,4,4,0,0,4, 


4,0,4,4,4,4,2,4 


10300 DATA 4,1,0,1,41,1,0,1,1141, ?F 


0,1,1.4,1,0,1,4 


10310 DATA 4,4,4,0,4,0,4,4,0,4,4,0, 5F 


4,4,0,4,0,4,4,4 


10326 DATA 4,1,60,1,4,1,0,0,1,1,1,1, ÿF 


0,0,1,4,1,0,1,4 


19330 DATA 4,0,4,4,4,0,4,4,4,0,0,4, à 


4,4,0,4,4,4,0,4 


10340 DATA 4,1,0,1,0,1,0,1,0,1,1,0, à 


1,0,1,0,1,0,1,4 


16330 DATA 4,0,4,0,4,4,4,0,4,4,4,4, 5P 


0,4,4,4,0,4,0,4 


10360 DATA 4,1,0,1,0,2,1,1,0,0,0,0, à 


1,1,2,0,1,0,1,4 


10370 DATA 4,0,4,4,4,4,0,4,4,2,3,4, 


4,0,4,4,4,4,0,4 


10380 DATA 4,1,1,0,0,0,1,4,3,833 à 


4,1,0,0,0,1,1,4 


10390 DATA 4,4,0,4,4,4,0,4,3,3,3,3, 


4,0,4,4,4,0,4,4 


10400 DATA 0,0,1,1,0,0,1,4,3,3,3,3, > 


4,i,0,0,1,1,0,0 


10410 DATA 4,4,4,0,4,4,0,4,4,4,4,4, : 


4,0,4,4,0,4,4,4 


10420 DATA 4,1,0,1,0,2,1,1,0,0,0,0, à 


1,1,2,0,1,0,1,4 


10430 DATA 4,0,4,0,4,4,4,0,4,4,4,4, : 


0,4,4,4,0,4,0,4 
10440 DATA 4,1,0,1,0,1,0,1,0,1,1.0, 
1,0,1,0,1,0,1,4 
10450 DATA 4,0,4,4,4,0,4,4,4,0,0,4, 
4,4,0,4,4,4,0,4 
10460 DATA 4,1,0,1,4,1,0,0,1,1,1,1, 
0,0,1,4,1,0,1,4 
19470 DATA 4,4,4,0,4,0,4,4,0,4,4,0, 
4,4,0,4,0,4,4,4 


10480 DATA 4,1,0,1,4,1,1,0,1,1,1,1, : 


0,1,1,4,1,0,1,4 


10490 DATA 4,2,4,4,4,4,0,4,4,0,0,4, > 


4,0,4,4,4,4,2,4 
10500 DATA 4,1,0,0,0,0,1,0,0,1,1,0, 
0,1,0,0,0,0,1,4 
10510 DATA 4,4,4,4,4,4,4,4,4,4,4,4, 


378 
#£0 


. 
— 


3PD 


PH 


PP 


PY 


4,4,4,4,4,4,4,4 
1952û RETURN 
10530 © LARYRINTHE © 


10540 DATA 4,4,4,4,4,4,4,4,4,4,4,4, à 


4,4,4,4,4,4,4,4 


10550 DATA 4,1,0,0,0,1,0,0,0,1,1,0, © 


0,6,1,0,0,0,1,4 


10560 DATA 4,2,4,4,4,0,4,4,4,0,0,4, P 


4,4,0,4,4,4,2,4 


195706 DATA 4,û,4,1,0,1,4,1,0,1,1,0, 3PY 


1,4,1,0,1,4,0,4 


19586 DATA 4,5,4,0,4,4,4,0,4,4,4,4, PF 


0,4,4,4,0,4,0,4 


10590 DATA 4,1,0,1,0,0,0,1,0,1,1,0, à 


1,0,0,0,1,0,1,4 


10606 DATA 4,0,4,4,4,4,4,4,4,0,0,4, PF 


4,4,4,4,4,8,0,4 


10610 DATA 4,1,00,1,0,5,1,0,1,1,0, 3P 


1,0,0,1,9,0,1,4 


10820 DATA 4,4,4,4,0,4,4,0,4,4,84,4, :P 


0,4,4,0,4,4,4,4 


10630 DATA 4,1,1,0,1,0,1,1,0,0,0,0, ?PE 
1,1,0,1,0,1,1,4 
10640 DATA 4,4,0,4,0,4,0,4,4,3,2,4, PV 
4,0,4,0,4,0,4,4 
10650 DATA 4,1,1,4,2,4,0,4,3,3,2,3, PU 
4,0,4,2,4,1,1,4 
10660 DATA 4,0,4,4,1,0,1,4,3,3,3,3, PQ 
4,1,0,1,4,4,0,4 


10670 DATA 0,1,1,4,4,4,0,4,3,3,3,3, ?P 


4,0,4,4,4,1,1,0 


10680 DATA 4,4,0,4,1,4,0,4,4,4,4,4, à 


4,0,4,1,4,0,4,4 


10690 DATA 4,1,1,0,1,0,1,0,1,0,0,1, >P 


0,1,0,1,0,1,1,4 


19700 DATA 4,0,4,4,0,4,0,4,0,4,4,0, >PK 


4,0,4,0,4,4,0,4 


10710 DATA 4,1,1,4,0,4,0,4,1,0,0,1, 3P 


4,0,4,0,4,1,1,4 
10720 DATA 4,4,0,4,0,4,1,0,1,0,0,1, 
0,1,4,0,4,0,4,4 


10730 DATA 4,1,1,4,0,4,4,4,0,4,4,0, : 


4,4,4,0,4,1,1,4 


10740 DATA 4,2,4,4,1,0,1,1,1,1,1,1, à 


1,1,0,1,4,4,2,4 


10750 DATA 4,1,1,4,0,4,1,1,4,1,1,4, : 


1,1,4,0,4,1,1,4 


10760 DATA 4,4,6,4,0,4,4,0,4,4,4,4, 


0,4,4,0,4,0,4,4 


10770 DATA 4,1,1,0,1,0,0,1,0,0,0,0, : 


1,0,0,1,0,1,1,4 


10780 DATA 4,4,4,4,4,4,4,4,4,4,4,4, : 


4,4,4,4,4,4,4,4 
10790 ‘ LABIRYNTHE 5 


10800 DATA 4,4,4,4,4,4,4,4,4,4,4,4, ÿ 


4,4,4,4,4,4,4,4 


10810 DATA 4,1,0,1,0,0,0,1,0,1,1,0, 


20 








LOL LAS û 
1.0,0,0,1,6,1.4 


19825 DATA 4,0,4,3,4,4,4,0,4,1,1,4, Ft 


0,4,4,4,0.4,0,4 


158350 DATA 4,0,4,1,0,1,4,6,4,4,0,4, 4 


ü,4,1,0,1,4,0,4 


10840 DATA 4,6,4,4,4,0,4,0,4,1,1,4, PF 


ü,4,0,4,4,4,0,4 


10690 DATA 4,6,4,1,2,1,4,0,4,0,4,4, :F# 


0,4,1,2,1,4,0,4 


15860 DATA 4,0,4,4,4,5,4,0,4,1,1,4, :FY 
ÿ,4,5,4,4,4,0,4 
10875 DATA 4,1,0,0,0, 1,0, 10,1, 1.0, PJ 
1.0,1,0,0,0,1,4 
15880 DATA 4,4,4,4,4,4,4,5,4,4,4,8, :Fy 
5,4,4,4,4,4,4,4 
16890 DATA 4,1,0,0,0,0,1,1,0,0,0,0, FI 
1,1.5,0,0,0,1,4 
10906 DATA 4,û,4,4,4,4,9,4,4,7,3,4, PC 
4,0,4,4,4,4,û,4 


19910 DATA 4,1,0,0,9,0,1,4,3,3,7,7, 3P 


4,1,0,0,6,0,1,4 


10920 DATA 4,0,4,4,4,4,0,4,7,7,3,3, ÿF 


4,9,4,4,4,4,0,4 


10930 DATA 0,1,0,1,0,0,1,4,3,3,2,3, ?P 


4,1,0,0,1,0,1,0 


15940 DATA 4,5,4,5,4,4,0,4,4,4,4,4, PF 


4,0,4,4,0,4,0,4 


10950 DATA 4,6,4,1,1,4,1,0,0,1,1,0, :PA 
ü,1,4,1,1.4,0,4 
10966 DATA 4,0,4,0,4,4,0,4,4,0,9,4, PU 
4,0,4,4,5,4,0,4 
10970 DATA 4,5,4,1,1,4,1,0,0,1,1,0, PC 
0,1,4,1,1,4,0,4 
10980 DATA 4,5,4,1,1,0,1,4,4,4,4,4, PU 
4,1,0,1,1,4,0,4 
159906 DATA 4,û,4,4,4,4,0,4,1,0,0,1, 3P7 
4,0,4,4,4,4,0,4 
11000 DATA 4,1,1,0,1,4,1,1,1,4,4,1, :FQ 
1,i,4,1,0,1,1,4 
11010 DATA 4,4,2,4,6,4,4,0,4,1,1,4, FL 
G,4,4,0,4,2,4,4 
11020 DATA 4,1,1,4.0,4,1,1,0,1,1,0, ;PQ 
1,1,4,0,4,1,1,4 
11030 DATA 4,1,4,4,1,0,1,4,4,1,1,4, :PG 
4,1,0,1,4,4,1,4 
11040 DATA 4,4,4,4,4,4,4,4,4,4,4,4, PT 
4,4,4,4,4,4,4,4 
11050 *  LARYRINTHE 4 DC 
11060 DATA 4,4,4,4,4,4,4,4,4,4,4,4, PV 
4,4,4,4,4,4,4,4 
11070 DATA 4,1,0,0,1,0,0,1,4,4,4,4, FR 
1,0,0,1,0,0,1,4 
11086 DATA 4,2,4,4,0,4,4,0,4,1,1,4, PU 
0,4,4,0,4,4,2,4 
11090 DATA 4,1,0,0,1,0,0,1,0,1,1,0, >PD 
1,0,0,1,0,0,1,4 
11100 DATA 4,4,4,4,4,4,4,4,4,0,0,4, ÿPF 





4,4,4,4,4,4,4,4 


11119 DATA 4,1,0, 10,100, 1,1,0, 3 


0,0,1,0,1,0,1, 4 

11120 DATA 4,5,4,0,4,0,4,4,4,4,4,4, 
4,4,5,4,0,4,0,4 

11136 DATA 4,0,4,6,4,1,0,1,0,0,6,6, 
1,5,1,4,0,4,0,4 

11140 DATA 4,0,4,0,4,0,4,0, 
û,4,0,4,0,4,0,4 


11150 DATA 4,6,4,0,4,1,1,1,0,0,0,0, 5 


1,1,1,4,0,4,0,4 
11160 DATA 4,0,4,0,4,4,0,4,4,8,3,4, 
4,0,4,4,0,4,0,4 


11170 DATA 4,0,4,1,0,0,1,4,7,7,3,7, 


4,1,0,0,1,4,0,4 


11100 DATA 4,9,4,4,4,4,0,4,7,3,3,3, PF 


3,0,4,4,4,4,5,4 


11190 DATA 0,1,0,1,1,0,1,4,3,3,3,3, ÿ 


4,1,01,1,0, 1,0 


11200 DATA 4,0,4,1,1,4,0,4,4,4,4,4, PK 


4,0,4,1,1,4,0,4 


11210 DATA 4,0,4,4,0,4,1,0,1,0,0,1, > 


û,1,4,0,4,4,û,4 


11220 DATA 4,1,0,0,1,4,1,0,1,4,4,1, à 


0,1,4,1,0,0,1,4 
11230 DATA 4,6,4,4,4,4,0,4,4,1,1,4, 
4,0,4,4,4,4,0,4 


11240 DATA 4,0,4,1,0,0,1,0,0,1,1,0, > 


9,1,0,0,1,4,0,4 
11230 DATA 4,6,4,0,4,4,4,4,4,0,0,8, 
4,4,4,4,0,4,0,4 


11260 DATA 4,0,4,1,0,1,0,1,0,1,1,0, : 


1,6,1,0,1,4,0,4 


11270 DATA 4,0,4,1,4,1,0,1,4,4,4,4, : 


1,0,1,4,1,4,0,4 
11280 DATA 4,2,4,0,4,0,4,4,4,1,1,4, 
4,4,0,4,0,4,2,4 


11290 DATA 4,1,4,1,0,1,0,0,0,1,1,0, à 


6,5,1,0,1,4,1,4 


3,4,4,4, à 


Es 
las] 


11300 DATA 4, 4, 4, .4,4,4,4,4,4,4,4,4, È "FR 


4,4,4,4,4,4,4,4 
20000 
### 


20010 PRESENTATION 


ARE RERRERERE 


20020‘ HHAPOPAPEROOOPEPEPHAHAE CE 


#44 

20030 MODE :PAPER 0 
20040 SPEED INE 150,150 
20050 PLOT 112,384,4 


20060 DRAM 112,256,4:DRAW 80,384,4: à 


DRAW 176,336, 4:DRAH 80,268, 4 


26976 PLOT 176,256,2:DRAW 224,304,2 à 


:DRAM 272,256, 2: DRAM 176, 320, 2: DRAM 
272, 320,2 

20080 PLOT 252,384,5:DRAW 288, 220,5 
:DRAW 352,256,5 


3RR 


20090 PLOT 384,184,3: DRAM 284,256, 

:FLOT 448, 364,3: DRAN 288,220, 2:DRAW 
449,256,3 

20100 PLOT 480,284, 6:DRAN 512,320, 6 

:PLOT 560,384,6: DRAM 480, 256, 6 

20110 INÉ 10,6,22:INK 11,2,23:INE 1 
2,8,23: INK 13,15,23: INK 14,0,26 


20120 PEN 10: LOCATE !,12:PRINT CHR$ 
(245): PEN G:PRINT " ., "ss PEN 2:FRI 
NT MBLINEY"::PEN 14: PRINT Fi "a 
26135 PEN {1:LOCATE 1,14:PRINT CHR$ 
{245}: PEN Z:PRINT " .,. "3: FEN 2:PRI 
NT "PUNEY "as: PEN (4: PRINT ": "à 
20140 PEN 14:LOCATE 13,15:PRINT "16 
à PTS" 
20130 PEN 1Z:LOCATE 1,16:FRINT CHR$ 
(245): :PEN G: PRINT " ., "3: PEN Z:PRI 
NT "COCA 3:PEN LA: PRINT "is là 
26160 PEN {3:LOCATE 1,18:FRINT CHR$ 
245): :PEN SPRINT " ,,"3:PEN 2:PRI 
NT "COLA "3:PEN I: PRINT "5 "à 
20170 PEN B:LOCATE 1,20:PRINT CHR#( 
:FEN 3: PRINT ‘ 15 F 


252}; 
15" 
20100 PEN 
dam is ne 
26190 FOR I=1 TO 2 
26200 PEN 2:LOCATE 1,24: 
POUR JOUER " 
20210 PEN S:LOCATE 1,25: 
UYEZ SUR FEU  “; 
26220 FOR FAUSE={ TO 1060:D=J0Y (0): 
IF D=ié THEN 20280 ELSE NEXT 


JUPE 
PRINT " 


FRINT" 


20230 PEN 9:LOCATE 1,Z4:PRINT'score : 


record" 
20240 PEN Z:LOCATE 1,25:FRINT scot; 
SPACES (10) srec$; 
20255 FOR PAUSE=1 TO 1000:D=J0Y (G): 
IF D=ié THEN 20280 ELSE NEXT 
2028û NEXT I 
20270 GOTO 25006 
20280 SOUND 1,FLUSH 
20299 RETURN 
25400 
#4 


25010 ‘ PRESENTATION 2 


25020 HAMAGPEOONNEPENEOPORERONE 


#4 
25030 MODE 1:INE 1,6 


25040 PEN 2:LOCATE 18, 1:PRINT'PACEY 


APP 


SOON 


:J6 


HE 


#ND 


x 


HP 


#LF 


ML 


PAK 


JiLOCATE 1,22:FRINT CHR$( EX 


25050 LOCATE 6,4:PEN 1:PRINT"REALIS >J6 


ATION : LE BAIL LAURENT" 


25060 LOCATE 1,6:PEN 1:PRINT'CONCEP HR 


TION DES LABYRINTHES ET AIDE À LA 


21 


SAISIE : LE BAIL EATIA" 


25075 LOCATE 1,10:FEN 3:PRINT'EUT D :BE 
Ü JEU : MANGER TOUTES LES FIECES 
AFIN D ACCEDER AU TAEL 
EAU SUIVANT," 
25080 LOCATE 1,14:PRINT'MANGER UNE Fi 
FASTILLE REND LES FANTOMES  COMEST 
IELES PENDANT UNE DUREE LIMITÉE." 
23090 LOCATE 1,17:PRINT"4 FANTOMES LR 
MORTS DONNENT 5 POINTS FAR PIECE 
MANGEE. " 
. LOCATE 1,20:FRINT'AU TABLEAU EM 
1 2 VIES VOUS SONT AJOUTEES." 
6119 LOCATE 8,22:PEN 1:PRINT'UTILI FF 
sr LA MANETTE DE JEU" 
25120 LOCATE 4,25:PEN Z:FRINT'PQUR RE 
JOUER, PRESGEZ LE HOUTON FEU" 
25130 FOR FAUSE=1 TO 4000: D=J0Y (Gi: JE 
IF Di THEN NEXT:GOTG 20000 
25140 SOUND 1,FLUSH :NE 
25150 RETURN :MF 
20000 ARR EM RER :CJ 
LS ss 
36610 MUSIQUE CF 
20020 RP EEPOEREE :DA 
#44 
30030 RESTORE 30110 2NE 
30040 ENV 1,15,-L,10:ENT 1,16,4,1,1 FR 
720,1 
30050 READ BK,CC EE 
20060 IF BB=G THEN RESTORE 20110:60 ?JN 
T0 36050 
30070 PER=ROUND (125000/ (440% (2% C(BE :Nf 
-10)/12)))) 
30080 SOUND 1,PER/2,CCx2,13,1,1 VX 
30090 SOUND 2,PER/4,CCx2,13,1,1 :YE 
26100 ON SG{1) GOSUE SGOS0:RETURN AG 
30110 DATA 1,5,3,5,5,10,8,10,8,10  :YG 
30120 DATA 10,10,8,10,5,10,1,10,1,5 :2F 
30130 DATA 3,5,5,10,5,10,3,10,1,10 >ZB 
30140 DATA 3,20,3,10,1,5,3,5,9,10,8 :7A 
30150 DATA 10,8,10,10,10,8,10,5,19 2] 
30160 DATA 1,10,1,5,3,5,5,10,5,10,3 32H 


30170 DATA 


36180 DATA 
30190 DATA 


20,10, 10,10, 26,10, 10,8 


30206 DATA 
30210 DATA 


10,1,10,5, 10,8, 10,8, 10 


30220 DATA 3,5,5,10,5, 10,3, 10,3, 10 
30230 DATA 1, 40,00 


10,3,10,1,20,1,10,8,20,6 32 


10,8,10,5,10,1,10,3,20,3 } 


10,10,8,10,5,10,1,10,1,5 à 


»1D 
LM @ 











Chose promise, chose due. 
Après avoir totalement ex- 
ploré les surfaces, il reste 
encore à tâter les volumes. 
(Attention pas ceux de 
l’Encyclopaedia Universalis 
ni ceux de Kartine : c’est 
défendu !). 

La troisième dimension 
vous apportera certaine- 
ment de grandes joies. Le 
mode d’emploi du pro- 
gramme est similaire à celui 
de son prédécesseur et de 
toute façon très accessible. 


10 ON ERROR GOTO 562û 
2ù ‘ LE 
" SURFACES LC 
| >LD 
LE 
3LF 
#J1 


G ‘ MENU PRINCIPAL 


70 MODE 2:SU$=CHR$ (24) : SURF=1 : GOSUE 
3980 

B0 LOCATE 26,6:PRINT SU$; "CUBE"; SU$ 
SPC (11) ;SU1$; "PARALLELEPIPEDE": SU1 

$ 

90 LOCATE 26,8:PRINT SU2$:"CYLINDRE 
"502$; SPC (7) ; SU3$; "CYLINDRE CREUX" 


>AX 


sv" 


36Y 


:SU3$ 

100 LOCATE 26,10:PRINT SU4$; "PYRAMI 
DE"; SU4$; SPC (7); SUS$:"TRONC DE FYRA 
MIDE"; SU5$ 

110 LOCATE 26,12:PRINT SU6$:"CONE": 
SU6$; SPC(:1) :SU7$:; "TRONC DE CONE":5 
U7$ 

126 LOCATE 26,14:PRINT SUB$:"SPHERE 
"3 508$: SPC (9) : SU9$:"CALOTTE SPHERIQ 
UE"; 509$ 


?NX 


a 


BR 


LT 





e 


VOLUMES 


pe Ÿ 150 LOCATE 26,16:PRINT SU10$:"TONNE nr ® 


AU":5U10$; SPC (8) :SU11$; "ZONE SPHERI 
QUE";SU11$ 


140 ?RF 
150 ‘ CHOIX >RG 
160 ” RH 


170 IF INKEY(8)=0 THEN SURF=SURF-1: >LG 
GOTO 240 
180 IF INKEY(O)=0 THEN SURF=SURF-2: } 
GOTO 246 
190 IF INKEY(1)=0 THEN SURF=SURF+1: 
GOTO 250 


200 IF INKEY(2)=0 THEN SURF=SURF+2: >LU 

GOTO 250 

210 IF INKEY(9)=0 THEN RÜN"SURVOL" 
" K7 

220 IF INKEY(18)=0 THEN ON SURF 605 >PX 

UB 400,770,1180,1540,1930, 2400, 2870 

,3110,3590,3860,4230,4590:G0T0 80 


se 


CC 


230 GOTO 170 >YE 
240 IF SURF£1 THEN SURF=12 ?VN 
250 IF SURF:>12 THEN SURF=1 >VP 


260 ON SURF GOSUR 270,280,290,300,3 >UP 


22 








10,520,330,340, 350, 360, 370, 380: GOTO 

80 

270 SU$=CHR$ (24) :SU1$="":SU2$="":GU DD 
11$="":5010$="":RETURN 

280 SU1$=CHR$ (24) :SU$="":SU2$="": SU >CB 
3$="": SU11$="":RETURN 
290 SU2$=CHR$ (24) :SU$="":SU1$="": SU BA 
3$="": SU4$="": RETURN 
J00 SUS$=CHRS (24) :SU1$="": SU2$="":6 CB 
U4$=""; SUS$="": RETURN 


310 SU4$=CHR$ (24) : SU2$="": SUI$="":S CH 
U5$="":SUb$="":RETURN 
320 SUS$=CHRS (24) : SUI$="": SUA4$="":S CP 
Ub$="":SU7$="":RETURN 
330 SU6$=CHRS (24) : GU4$="": GUS$=" "2 CU 
U7$="": SU8$="": RETURN 
340 SU7$=CHRS (24) :SU5$="": SUb$="":S CC 
U8$="":SU9$="": RETURN 
350 SUS$=CHRS (24) : SUb$="":SU7$="":S DE 


U9$="":SU10$="":RETURN 
360 SU9$=CHR$ (24) : SU7$=" "2 SUB$="":S EH 
U10$="":SU11$="":RETURN 

370 SU10$=CHRS (24) : SU$="": SUB#="" 


U9$="":GU11$="": RETURN 
& 
































380 SUI1S=CHRS (24: :SU104=""SUGEEN SON | 690 CALL &BBO6: RETURN QC T ETURN 
1S04="": SU $=" "0 RETURN 706 tab1=2:tab2=2:G0SUR 5010 WE | 1000 fo3$=CHR$ (24) : fot$="": foté=""s JY 
250 ‘ cube STE | 715 ATRE=ROUND (é#C01°2,4):LOCATE #1 EX | RETURN 
455 MODE 2:G0SUR 5455: GOSUR 3590 1H | .2,8:FRINT#I, "La surface totale":PFR 1ü10 CALL REBOZ:CLS#1:ON fo GOSUE 1 :ME 
419 PLOT 320,200, 12: DRAWR -100,G:DR :PM | INT “ls "est de : “;aire;" cm";CHR$ 020,1070,1120:CLS#1:GOSUB 5500: GOSU 
AUR G, 100: DRAWR 100,0: DRANR 0, -{2 {255)3" ." B 5590:6070 850 
425 PLOT 220,200: CRAN -17,0:DRAWR :UR | 720 CAL LEBO6: RETURN 204 | 1020 TARI=2: TAB2=2:GOSUE Sûiû :XD 
D: DRAWR 17,5 Tr tabi=£:tab2=2:GOSUE 5510 UN | 1030 TAB1=2: TAB2=6:GOSUB Südi 5XM 
16 FLOT TT, 200: DRAUR -5, 10: FLOTR MF | 745 dia=ROUND cot4SGR!3).4):LOCATE OH | 1940 TAR1=7: TARZ=10: GOSUR 5170 FYM 
11. O:DRAUR -5,-10:PLOT 203 SA #1,2,8:PRINT#1,"La diagonale est de 1050 VOL=ROUND (COt#CO7#HAUT, 4) :LOCA TE 
FR -5,-i0:PLOTR 11,0: DRAUR 5. fû "PRINT #1," "idias" cm ." TE #1,2,14:FRINT#I,"Le volume est d 
349 PLOT 225,200: DRAMR © A7 DhâuR :UU | 756 CALL &BBÜ6: RETURN 01 |e 2": PRINT #1," "ivoli" cm'sCHR$ ITS 
100, Ce: DROUR Gi, 17 765 ‘ parallelepipede #72 | 4j:" 
SD PLOT 220,182:DRAUR 10.5:PLOTR © JE | 770 MODE 2:GO0SUE 5400:G0SUB 559 22 | 1060 CALL &BBO6:RETURN FR] 
ER 183: DR AuR 780 PLOT 325,200, 13: DRAWR -100,0:DR HE | 1070 TAB1=2:TAB?2=2:G60SUB 5010 2] 
ë ANR G,50:DRAWR 105,0:DRAWR 0,-50: DR 1080 TABI=2: TAB?=6:GOSUÛR 5045 SAT 
AWR 50,30: DRAWR 0,55: DRAUR -100,0:D 1090 TAEÏ=2: TABZ=10:GOSUB 5170 2ŸT 
FAUR 9,-Sû:DRAMR 100,6 1100 AIR1=ROUND (2#{ (CD1#C02) +(C02#H :VY 
790 FLOT 229,200: DRAMR 30, 30:PLOT 3 CB | AUT)+ (CON #HAUT)) 4): LOCATE #1,2,14: 
20,250: DRAUR 50,30: FLOT 226,250: DRA FRINT#1,"L'aire totale est": FRINT # 
MA 50,10 1," de"sairis" cm":CHR$(255)5" ," 
\ BG FLOT 320,200: DRAWR 0,-10:DRANR NM | 1110 CALL &RBO6: RETURN RE 
2ù -8,4:MOVER ©,-8:DRAWR 8,4: DRAWR -1ü 1120 TAB1=2: TAEZ=2:G0SUE 5010 :XE 
455 LOCATE EUR Mai LOCATE 3 V1 | OO:DRAWR 8,4: MOVER O,-8:DRÔWR -8,4 1130 TABI=2: TAB2=6: GOSUE 5040 >XN 
AIG: PRINT "as LOCATE 35,9: PRINT le :DRAUR 5.10 1149 TAË1=2:TARZ=10:GOSUR 5170 3YN 
à 819 PLOT 326,200: DRAKR 20,0: DRAWR 5 UT | 1150 dia=ROUND (SOR(col‘£+co2"2+#haut :UZ 
Sûû fol$=CHR$ id}: tor$=""sfos$=""  2U | 0,30: DRAWR -20.û #2),4):LOCATE #1,2,14:PRINT#1."La d 
510 fozi #YB | 825 PLOT 320,200: DRAMR -50,80 WE | iagonale est de':FRINT #1," "idia:" 
520 LOCATE #3,96,6:FRINT #3, fot$s"V 3XK | 830 PLOT 220,200: DRAWR -26,5:DRAMR NT | cm ." 
za": CHR# (254): fo1 -4,8:MOVER &,0:DRAWR -4,-8:DRAMR ©, 1iéÿ CALL KEBO6: RETURN RE 
S3 LOCATE 43,56, 12: PRINT #2,#t02$:" CEN | SC:DRAWR -4,-B:MOVER 8,5:DRAMR -4,8 1179 ‘ cylindre YE 
Ao=ba": CHR ITS): fo5$ :DRAUR 20,6 1180 MODE 2:G60SUB 5400:G60SUB 5590 AU 
546 LOCATE #2,56,.18:FRINT #2.+to2$:" PU | 840 LOCATE 25,11:FRINT'H":LOCATE 34 :DF | 1190 DEG YC 
eza 2":f03$ 14: PRINT'"a":LOCATE 46,12: FRINT"b": 1260 FLOT 360,180:FD0R f#zi T0 36û 5 FE 
SoÙ ‘ radicaux :T4 |'LOCATE 38,11:FRINT ‘e" TEF 10: DRAN 320+40+C05 (#2), 1aH+2kS 
S6û FLOT 496,128: DRAUR 8,-14:DRANR :TU | 850 fol$=CHR#(24):fo2$="":toig="" 520 | IN(FL):NEXT 
6,14: DRAMR 16,0 8éû foi YF | 1210 PLOT 360,360:FOR Fist TO 3ôû S FF 
570 IF INÉEY(19)=0 THEN ééû SUR [870 LOCATE #3,55,6:FRINT #5, foi$:"V 5RC | TEP 10:DRAW 2204404005 (4%), 365+2045 
580 IF INÉEV(47320 THEN 6iû SUP | =a.b.h"':tot$ INt#%) :NEXT 
390 IF INÉEY(9)=0 THEN CLS:RETURN  SCJ | 880 LOCATE #3,59,1Z: PRINT #1, fo2$:" RG | 1220 PLOT 360,180: DRAWR G,!80:FLOT :XH 
&üG GOTO 575 :1E | Ao=£ab+bh+ah)":#02$ 285,180: DRAKF ©, 180 
él fostoti:IF +0:7 THEN +ozi SWG | 890 LOCATE #3,59,.18:PRINT 43,#02$;" :QT | 1270 FLOT 360,180: DRAUR G,-60:DRAKR :NH 
ë2ù ON fo GCSUE 679,440,650:6070 52 CL | e= a"; CHR$ (295): "+0": CHRS(ZES is "4h" -B,4:MOVER G,-B:DRAUR 8,4: DRAWR -8 
j CHR (255) : fo3$ 0,0: DRAUR 8,4: MOVER 0,-8:DRAWR -3,4 
630 foi$=CHR$ (24): fo24="": {0382 ""iR HV | 900 ‘ radicaux RE | :DRAUR 9,60 
TÜRN 915 FLOT 478,128: DRAUR 6,-14:DRAMR :TQ | 1240 PLOT 280,180:DRAMR -235,0:DRAUR :RB 
645 +074=CHRS (24) sfoté= "Me ioté= "ee HW | 6,14: DRAWR 64,5 -4,8:MOVER 8,0:DRAUR -4,-6:DRAWR G 
ETURN 920 IF INÉEY{18)=0 THEN 1010 EVE | ,180:DRAMR -4,-B:MOVER 8,0: DRAWR -4 
6S0 +03$=CHRE (24): fot4=""s fo0 ER GX | 920 IF INÉEY(47)=5 THEN 965 EUX | ,8:DRAUR 3û, 0 
ETURN 94G IF INÉEV(9)=G THEN CLS:RETURN CH | 1290 LOCATE 32,8:PRINT "h":LOCATE 4 :TY 
bb CALL SBBGZ:CLS#I:ON fo GOSUE 67 >GN | 950 GOTO 925 SAB | 1,1S:PRINT "d' 
0,700, 730: CL541: GOSUR SG: GOSUR 55 Gb +o=foti:IF fo:3 THEN fo=i 2X6 | 1260 fo1$=CHR$ (24): fo2#="":f03$="" SAC 
SG: 6070 Sûû 970 ON fo GOSUE 980,990, 1000: 6070 8 DT | 1270 fo=i EE 
b7ü tabl=2:tabi=2:GOSUR 5üiG 5WR | 70 1280 LOCATE #3.99,6:PRINT #3,fol$:" FC 
680 volu=ROUND(coi"3,4):LOCATE #1,2 :FY | 980 foi$=CHR$(24):#02$="": f03$=""iR HD | Va (":CHRS (164); "d'a CHR$ (295): ") /4 
S:FRINT#I "Le volume est de :": PRI ETURN .h'":fo1$ 
NT #1," "svolui" cm':;CHR$ (254: " 906 fo2$=CHR$ (24): fo1$="":fo3$=" "sr HE | 1290 LOCATE #5,997,12:PRINT #3,fo2$; :HX 


23 





'Am="iCHR$ (184): ",d.h": fo2$ 

1300 LOCATE #3,59,18:FRINT #3, fo: 
"Ao=";CHRS (184 is", d. ip+h}": fo3$ 
1310 IF INÉEY(18)=5 THEN 1450 





320 IF INKEY(47)=0 THEN 1250 
1336 IF INKEY(9)=0 THEN CLS:RETURN 
1340 6070 1310 


1350 fo=foti:IF foi: THEN fozi 
1365 ON fo GOSUR 1770,1740, 
ü 1280 

1370 foif=CHR# (TA): f00$=" "rs togs "tt 
RETURN 

1380 fo2$=CHR$ (243: f0{$="": fost="": 
RETURN 

1390 fo3$=CHR$ (74): foi$="": foré="": 
RETURN 

1400 CALL EBEGS:CLS#i: ON to GOSUE ! 
410,1450, 1400: CLS#1:GOSUB 550û:GOSU 
B 5530:G0T0 1260 

1415 TABI=2:TABZ=2: GÜSUE 
1420 TABI=2: TABZ=6: GOSUE Si7û 

1435 volu=ROUND ({ (P14d2%2; /4)#haut, 
4) :LOCATE #1,2,10:FRINT#1.'Le volum 
e est de :":PRINT #1," "ivolu:" cm° 
sCHRS (254) 3" ," 

1440 CALL &BBOE: RETURN 

1450 TABI=2: TABE=2: GOSUR 5250 

1460 TABI=2:TABZ=6: GOSUR 5175 


EE} 


Jedi 


1956: 607 :6 


“HV 


1470 air2=ROUND (FI#d2#haut, 4) :LOCAT :MJ 


E #1,2,1G:PRINT#I, "La surface later 
ale":PRINT #1," est de :"sair£;"cm" 
sCHR$ (255); " ," 

1480 CALL &RBBO6: RETURN 

1490 TARÏ=2: TAE2=2: GOSUE 5250 

1Sû0 TABI=2: TAB2=6: GOSUR 5170 

1510 air{=ROUND(FI#d2#( (42/2) +haut) 
HH:LOCATE #1,2,14:PRINT#I "La surf 
ace totale": FRINT #1," est de :":a1 
rlsom'iCHRS(255):;" ," 

1520 CALL SBEG6: RETURN 

1530 ‘ cylindre creux 

1545 MODE Z:GO0SUE 54ût: GOSUE 5590 
155û DEG 

1960 FLOT 366,180:FOR #4=1 TO 360 S 
TEF AG: DRAN 320+40#C06 (F4), 18C+204S 
INCFA):NEÏT 

1570 PLOT 36ÿ,360:F0R 
TEF IG: DRAN 320#4ü#C06 (#7) 
INÉ#L) :NEXT 

1380 FLOT 360,180: DRAWR 6,180: FLOT 
28û,180:DRAWR O, 180 

1596 FLOT 340,180:FO0R f#=1 TO Zéû S 
TEP 10: DRAN 320+204C05 (#4), 180+1045 
INCF4) :NEXT 


one 


.3oû+Z2Û04S 


1600 PLOT 340,360:FOR fA21 TO 360 5 5F 


TEF IG: DRAN 320+204C08 645) ,360+1CRS 
INGF) :NEXT 


fisi TO Eéû 5 à 


SXU 
5H 


RE 
5YE 
AU 
FYC 
3GF 


[ee] 
Leg] 


#XT 


?6D 





1810 FLOT 340,360: DRAWR 
206,180: DRÉMR ©, 180 
a PLOT Zéû, 180: DRAUR G,-60: DRAM 
:MOVER O,-8:DRAUR 8,4: DRAUR -5 
EAU AN 1,4: MOYER G,-B:DRAUR -6.4 
tDRAWR 5,60 
1635 PLOT 260,180: DRAUR -30, 0: DRGR 
-4,B:MOVER 8,0: DRAME -à,-8:DRAUR di 
11680: DRAWR -4,-B:MOVER 8,0: DRAWR -4 
8: DRANR 55,0 
164 FLOT 340,270: DRAWR -45,5 
1650 LOCATE 32,8:FRINT °h 
L,i8:FRINT "CO" 
1660 LOCATE 41,8:FRINT "a" 
1670 foi$=CHR$ (T4): fo2$="" 
168 foi 
1695 LOCATE 
V= (Ci CHRS (Bd): " hi /4i#iD": 
gist-d'iCHR$ (255): ") "fol 
1700 LOCATE HE, 99 16: FRINT #7 
JE 14,4) /{"sCHRS (184) "D" 
je"-d'sCHRS (255): "))": fo7$ 
(710 IF INKEY (18) =0 THEN 1795 
1725 IF INKEY{473=0 THEN 
1730 IF INÉEYIS)=G THEN CLS:RETURN 
1745 GOTO 1710 
1750 fo=foti:iF fo:2 
1780 
ü 


1770 


G,-180:FLÛT 


: CHR ZE 


. 102$ 


CHRS(2SS 





cr 
#30 


THEN fozi 


foi$=CHR$ (24) : f024=" "3 RETURN 
1780 +o2$=CHR$ (74) : f01$="": RETURN 
1795 CALL SBBGT:CLS#i: ON fo 605 
BûG, 1860: CLS#1: GOSUE S5ûG: GOSUE 
Ü: 6070 1875 

1800 TAHRÏ=2: TARZ=2: GOSUE 

1810 TABI=2: TABZ=6: GOSUE 5275 
1820 TABI=2:TAB2=j0: GOSUR 5256 
1830 IF d£idi 
INT CHR#(7):2:G60T0 1875 
1840 volu=ROUND(:{ 
-22%2),4):LOCATE #1,2,14:FRINTHI, "EL 
e volume est de :":PRINT #1," "ivoi 
u;" cm'iCHR#(254);" ," 

1855 CALL RBBÜ6: RETURN 

1865 TARÏ=Z:TAB2=2: GOSUE 5370 

1875 TAB1=2: TABZ=6: GOSUE 5270 

1880 TAEÏ=2:TARZ=10: GOSUR 5250 


Jéd{) 


UE 1 
ces 
559 


ci 
d1/0 


1890 IF d2:di THEN LOCATE #1,1,1:FR AT 


INT CHR#(7):: GOT 188ù 


1960 haut=ROUND (id#voli /{PI#(d{"2-d à 


2%2)),4):LOCATE #1,2, 14: PRINT#I,"La 
hauteur est de :":PRINT #1," "ihau 
ti tm" 

1910 CALL ZBBG6: RETURN 

1925 ‘ PYRAMIDE 

1950 MODE 2:G0SUB 5490:G0SUE 


CSS" 


J370 


ha FLOT 360,206: DRAWR -106, 0: DRAM 


24 


VI LOCATE 4 37 


HI SS,G:PRINT #3,foi$i" : 


ON fo GOSUR 1770, 1780: G0T0 159 : 


THEN LOCATE #1,1,1:FR à 


{PI#haut) /di#igi"? 3% 


[hdi 36,26: DRAUR 1 


NL 


RE 


>RN 
FvE 
> 
NI 





GC: DRBUR -40,-75 
1950 DRAWR -6, 5 
-145,-530 
1965 DRAWF 70,120: DR& 
ER 50,90: DRAWR 75,-9Ù: 
LDRAUR —55, 120 








1570 DRAUR CLOS: MOUER 5, 105: DRAMR 

où, 105 

1980 MOVER -50, 0: DRBWR -100, 0: DRGWP 7 

4,8: MOVER Bi Gi DRAUR -4,-B:DRAUE © 
105: DRAWR 4,-3:NOVER -3,0:DRAUE 4. 


B:DRAMR 100 
1935 MOVER 25,-45: DRAM 16,7 

E5:DRAMR 45,5 

Î 360, AUTRE 

3:MOVER D,-B:DRAUR &,4: DRAUR -1 
GE, is :DRÔNE 8 1,4: MOVER D,-B:DFRAUR -E, 
4: DRAKR Ô,20 
2610 MOVE 3é6i 
O,5:MOVER &,-7 
20: DRAUR 8, -2 
S:DRAUR -Z5,0 
2029 LOCATE 29,7: PRINT hits 
BL: PRINT ms: LOCATE 55,5: 
MeLOCATE 52,12: PRINT "hit 
i4: PRINT "a" 
20 û LOCATE JE IB:FRINT'AT : 


e oe la base" 













LOCATE Ai, 


2040 fal$=CHRS (Ed) s foie" og" te 


foi$="" 

20 fosi 

2G6G LÜCATE #3, 
V=iAl. h}/2"3 foi 
2070 LOCATE #3,55 











Mnlz hs CHRS ESS : +" CHARS ESS 1" 
4':f02$ 
2080 LOCATE #3,59,14:PRINT #2. +038: 


'Aneza. ml": toi$ 

2090 LOCATE #3,59,1S:PRINT #3, fodé: 
= ml"; CHRSI2ES ii +" :CHRS (255): "/ 

d':fad$ 

ZiGG ‘ radicaux 

2115 FLOT 478,128:DFRAUR 4,-14: 
ibn bé, G:PLOT 486,256: 

3,-14: DRAUR 4,14: DRAUR 3E,Ù 

Z212û IF INÉEV{18)=0 THEN 2220 

2135 IF INEEY(473=@ THEN 2185 

2140 IF INÉEY(9)=û THEN CLS:RETURN 

2150 GOTO 2120 

2165 fo=fotl:IF fo:4 THEN fozi 





DRAWR 


DRAUF 5,2 DRfuir 30 





sur+tac 4 


JS6 PRINT #1, fois" 


IC: PRINT #1, to2te 


DRAUWR :H 


:EW 


2170 ON fo GOSUR 2189,2196,220, 221 LE 


G:G60T0 266û 

2180 fol$=CHR$ (24) : fo2#="" 
f04$=" "2: RETURN 

2190 fo2$=CHR$ (24): fo1$="": 
fo4$="0";: RETURN 

2200 Fa3$=CHR$ (243: fo1$="": fo2$="": 


stats" 


f03$="": 


?TN 


F04$="%: RETURN 
2210 fod$=CHR$ (24): folt="": f07$="": 
105$="": RETURN 





GOSUR 5345 



























2TF 


rXF 
:GÜSUE 5170 ‘Xu 
2250 volu=ROUND {(airi#haut)/3,4;:LG :ZR 
CATE #1,2,10:FRINT#I, "Le volume est 
e :'": PRINT #1," svolus" cm':CHRé 
(254); ," 
3266 CALL SEBO6: RETURN :RM 
2270 TABI=2:TABZ=2: GOSUB 517ù XV 
2:85 TABL=2: TAB GOSUE Süit FAT 
2200 mi=ROUND (SGR thaut"2+{col"2/43} PF] 
AH): LOCATE #1,2,10:PRINT#I,"La long 
ueur ml est de: ":PRINT #1," "mis" 
ca," 
2300 CALL &KBBOE: RETURN :RG 
2315 TABÏ=2: TABZ=2: GOSUR 5û1û FXG 
2520 TABI=2: TAB2=6: GOSUR 5150 FM 
2330 airi=ROUND (2#coi#102, 4) :LOCATE :NH 
#1,2,10:FRINT#1, "La surface latera 
le 'eFRINT #1," est de: “sairii" cm 
"sCHR#(255)3" ," 
us CALL &BBU6: RETURN RL 
ei ,.V 
2 30 Di 
En ici= ROUND (S0R 10224 (co 1" 2/8); :FG 
):LOCATE #1,2, 10: PRINT#1,"La long 
ueur m est de: ":PRINT #1," ‘iloli" 
cn." 
2380 CALL RBEG6: RETURN :RQ 
2555 ‘ tronc de pyramide #YG 
2460 MODE 2:G0SUR 5400:G0SUB 5590  :4F 
2410 PLOT 360,200: DRAWR -100,0:DRAW NR 


R 40,30: DRAWR 100,0: DRAWR -4û,-35 


2425 DRAUR -60,30:MOVER 100,0: DRAUR : 


-145,-30 
2450 DRAMR 40,80: DRAUR 5ù, 0 


2445 DRAWR 10,-SC:MOVER -10,80:DRAW 5 


R 19,7: DRAWR -50,0:DRAWR -10,-7 

2450 MOVER 10,7: DRAUR -10,-55 

Z4E5 MOVER 100,0: DRAUR -40,55 

2470 MOVE 360,200: DRAWR 20,0: DRAWR 

0, 9: MOVER é. —S:DRANR -8,-3:DRAMR 46 

je DRANR -8,-2:MOVER 8,-5:DRAKR ©, 
Sd: DRAWR -20,0 

249û MOVE 
—B, 4: MOVER G,-8:DRAMR 8,4: DRAUR -1 

00,0: DRAUR 8,4:MOVER 0,-B:DRAWR -8, 

4:DRAUR G,20 

2490 MOVE 260, 200: : DRAKR 

F -4,8:MOVER 8,6: DRAUR -4,-8: DRAUR 

0,95: DRAWR 4,-8:MOVER -8,6:DRAUR 4, 

B:DRAWR 120,0 


365,200: DRAUR Ô,-20: DRAUR OR 


50,0: DRAW : 





d"" h";CHRS (255 





2500 LOCATE 
d2,12: PRINT 
"a" 

2510 LOCATE 25,17:PRINT'"AI 

e base inferieure" 

292% LOCATE 25,19:PRINT'AE : 
e base superieure" 
2520 LOCATE #3,58,12: 
24); "V=ih/3), (AÎ4+AZ+ AL. A2)": CHRS 2 
4} 


2545 


27,11:PRINT "h':LOCATE 
"O':LOCATE 40,14: PRINT 


: surfac 


surfac 


radical 


2996 PLOT 576,226: DRAWR 4,-14,0:DRA :] 


MR 4,14:DRAWR 42,0,13 

2560 PRINT CHR$ {235 :CHRS (0: 

2570 IF INÉEY(18}=0 THEN 2600 

2580 IF INKEV(9)=û THEN CLS:RETURN 
2590 GOTO 2575 





2600 CALL &BHGS:CLS#1:GOSUR 2610:CL : 


Sen 
PAUL il ) 


5#1:GOSUE 5500:G60SUE 55970: G0TO 
2610 tabi=Z:tab2=2:G0SUR 5170 
2629 tab1=2:tab2=6:GOSUB 5746 
2630 tabi=2: tab2=10:GOSUB 5290 


2845 volu=ROUND (thaut/3)#{(airitairz à 


+50R{airitair2)),4):LOCATE #1,2,14: 
PRINTHI, "Le volume est de :":FRINT 
#i," “svolu;" cm';CHR#(254);" ," 
2650 CALL BBG6: RETURN 

2665 ‘ cone 

2670 MODE 2:G0SUR 5400: GO0SUR 5590 
2686 DEG 


2695 PLOT 386, 160:FOR Fizû TO 366 S : 


TEF SO: DRAN 320+60+C05 (F4), 1604155 
IN(#F4) :NEXT 

2700 DRAN 326,300: DRAW 260, 160 

2710 DRAWR 0,-30:DRAUR 8,4: MOVER G, 
-B:DRAWR -8,4:DRAUR 170, 0:DRAUR -8, 
4:MOVER G,-8:DRAUR 8,4 

2726 
«B:MOVER 8,0:DRAUR -4,-8:DRAWR 0,14 

G:DRANR -4,-8:MOVER 8,0:DRAUR -4,6: 
DRAHR -100, 0 

2750 DRAWR -30,10:DRAWR G,-10:MOVER 
—10,6:DRAWR 10,4: DRAW 220, 160: DRAH 

R 10,4:MOVER -10,6:DRAWR D, -10: DRAH 
R 30,0 

2749 LOCATE 53,10:PRINT "m":LOCATE 
S3,11: PRINT "h':LOCATE 41,17:FRINT 
“p" 

2750 foi$=CHR$ (24) : fo2$="": fosg="" 
fog$="" 


2766 fo=i 









PRINT #3, CHR&I UV 


DRAUR 0,30: DRAWR 40,0: DRAWR -4 : 


5H] 


HT 


>D7 


2770 LOCATE #3,99,6:PRINT #5,f01$;" CF 


V={"sCHRS (184) 2", r':CHR$ (255): "hi / 
J'ifoi$ 

2780 LOCATE #3,59,10:PRINT #5, fo2$: 
gs "+r" CHARS (255) : fo? 


25 





+19 $ 


279 LOCATE 43,59, 14:PRINT #3, fo3$; JV 
Am"; CHR$ (194) 5" rem's fossé 

2800 LOCATE #3,59,18:PRINT #3, fod$; :NC 
“Aozr. "3 CHRS (184): {r+m) 3 fo4$ 

2819 ‘ radicaux YD 
2820 PLOT 478,256: DRAUR 4,-14:DRAWR UC 
4,14: DRAWR 40,6 


2830 IF INKEY(18)=0 THEN 2930 WP 
2840 IF INKEV(47;=6 THEN 2870 7H 
2850 IF INKEY(9)=0 THEN CLS:RETURN CV 
2860 GOTO 283û :NG 
2870 fo=fotl:IF fo>4 THEN fo=1 #XQ 


2880 ON fo GOSUE 2865, 
G:G0T0 2770 

2890 foi$=CHR$ (24): f02$="": fo3$="": TE 
f04$="": RETURN 

2900 +024=CHR$ (24) : #01$=""s foï#=""s TU 
fo4$="": RETURN 

2910 +o3$=CHR$ (24): fo1$="": fo2$=""s TX 
#o4$="": RETURN 
2920 fo4$=CHR$ ( 
f03$="": RETURN 
2930 CALL &KBBOZ:CLS#1:0N fo GOSUE 2 :X4 
940,2986, 3020, 3060: CLS#1:GOSUB 5500 
:60SUB 5590:G0T0 275û 

2940 tabi=2: tab2=2: GOSUB 5195 :XE 
2990 tabi=2:tab2=6: GOSUE 5170 :}E 
2960 volu=ROUND {{FTkra"2#haut)/7,4) 3ET 
:LOCATE #1,2,10:PRINT#I,"Le volume 


2906, 2616,292 ME 


24: foi$="": f028=" "2 TV 


est de :":PRINT #1," "ivolu:" cm'iC 

HR$ (254); " 

2970 CALL SEBO6: RETURN 5RY 
2986 TABI=2: TAB2=2: GOSUE 5170 XD 
2996 TAB1=2:TAB2=6: GOSUB 5190 #XL 


3065 1o1=ROUND (SR (haut“2+ra"2),4): 
LOCATE #1,2,10:PRINT#I,"La longueur 
m est de:":FRINT #i," "slols;" cm." 


HL 


3010 CALE &KBRG6: RETURN 3RF 
3026 TABÏ=2:TAB2=2:G0SUB 5196 7K0 
3630 TAB1=2: TAR2=6:GOSUB 5070 #XT 


30406 airm=ROUND (PI#ra*loi,4):LOCATE :JN 
#1,2,10:PRINT#1,"La surface latera 
le":PRINT #1," est de"sairm;" cm"3;C 
HR$(255)3" ," 


3050 CALL &BEG6: RETURN PK 
3660 TAB1=2: TAB2=2:GOSUB 5190 3XV 
3070 TAB1=2: TAB2=6: GOSUE 5070 FAX 


3080 airo=ROUND (ra*Fl#(ratloi},4}:L NE 
OCATE #1,2,10:PRINT#I,"La surface t 
otale":PRINT #1," est de";airo;" cm 
"aCHR$(255);" ," 


3090 CALL LEROG: RETURN ÈRF 
3100 ‘ tronc de cone >X6 
3110 MODE 2:G60SUB 5400:G0SUR 5590 AN 
3120 DEG 3XH 








3130 FLOT 380,160:FOR #=0 TO 360 5 
TEF 10:DRAW 320+60#C08 (F2), 160+1545 
INC#Y):NEXT: PLOT 390,220:FOR #20 T 

0 360 STEP 10:DRAW 320+30#C09 (4%) ,2 
20474SIN (4%) :NEXT 

3140 MOVE 380,160:DRAW 250,220: MOVE 
260,140: DRAW 290, 220 

3150 MOVE 260, 160:DRAMR 0, -40: DRAUR 
8,4:MOVER 0,-B:DRAMR -B,4:DRAUR 12 

0,0:DRAWR -8,4:MOVER 0,-B:DRANR 8,4 
:DRAUR 0,40 

3160 MOVE 290,220: DRAUR 0, 40: DRAMR 
8,4: MOVER 0,-B:DRAUR -8,4:DRAUR 40, 

O:DRAUR -8,4:MOVER 0,-8:DRAMR 8,4:D 
RAR 0, -40 

3170 MOVE 290,220: DRAMR -20, 10: DRAM 
R 0,-10:MOVER -10,6:DRAWR 10, 4: DRAM 
230,160: DRAUR 10,4: MOVER -10, 6: DRA 
MR 0,-10:DRAWR 30,0 

3180 MOVE 380, 160:DRAE 20, 0: DRAMR 
-4,8:MOVER 8,0: DRAUR -4,-B:DRAUR 0, 

60: DRAMR -4,-8:MOVER 8,0:DRAUR -4,8 
:DRAUR -50, û 

3190 LOCATE 21,13:PRINT "m":LOCATE 

51,13: PRINT "h':LOCATE 41,18:PRINT 
"D':LOCATE 41,9: PRINT "d" 


TL 


5vR 


NT 


CP 


#QL 


?EY 


3200 LOCATE 25,4:PRINT'AÏ : surface :2H 
interieure" 
3210 LOCATE 25,6:PRINT"AZ : surface AV 
superieure" 
3220 foi$=CHR$ (24): fo2$="":f018="" AA 
3230 foi :DE 
3240 LOCATE #3,97,6:FPRINT #5, foi#s" NL 
Vi CHR$(184):",.h)/12).":LOCATE # 
199,7: PRINT #5," (D":CHR$ (255): "4, 
dd”: .CHR$(255):")":foi$ 
3250 LOCATE #5,59,12:PRINT #3,+02$: FF 
ms {(D-d)/2) "3; CHR$ (255) : "4h: CHR 
255): fo2$ 
3260 LOCATE #3,59,18:PRINT #3,fo5$; :WE 
Ame (LECHRS (184 2, m)/2). (Déd)": fo 
3$ 
3270 ‘ radicaux 3YE 
3280 PLOT 478,224: DRAUR 4,-14:DRAUR V4 
4,14:DFAUÛR 110,0 
3290 IF INKEY(18)=ÿ THEN 3390 #WR 
3300 IF INÉEY(47)=0 THEN 3330 HD 
3310 IF INKEY(9)=0 THEN CLS:RETURN CL 
3320 GOTO 3290 ME 
3330 fo=foti:IF fo>:3 THEN fo=i 3XF 
3540 ON fo GOSUR 3560,3370, 3380 ?XE 
3350 G60T0 3240 >MH 
3560 foi$=CHR$ (24) : fo2$="": fo3$=""s JE 
RETURN 
3370 fo2$=CHR$ (24) : foi$=""s fos$=" "ts JL 
RETURN 
3380 fa3$=CHR$ (24) : fo1$="": fo2$="": JM 














RETURN 


3590 CALL &BBGS:CLS#1:0N fo GOSUE 3 : 


400,3466,3520:CL5#i:GOSUB 5 
B 5390:6070 3220 

3400 TABI=2: TABZ=2:G0SUB 5170 
3410 TAB1=2:TAB2=6: GOSUE 


3420 TABI=2: TAB2=i0: GOSUR 


5506: GOSU 


En ï 
dis 


EnC/: 
JédU 


3430 IF d25di THEN LOCATE #i,1,1:FR A 


INT CHR$(73 3; :GOTO 342ÿ 


3445 voiu=ROUND { {(FI#haut) /15j#id1 


2+d14d2+d2%2;,4):LOCATE #1,2,14:FRI 
NT#1."Le volume est de :":PRINT #i, 
; Mes Mont 
3450 CALL &HBO6: RETURN 
3480 TABI=Z: TARZ=2: GOSUE 
3470 TAB{=2:TAB2=6: GOSUR 
3485 TAB1=2:TABZ=10:GOSUE 5170 


Esnf 
Ji 


3490 IF d2>di THEN LOCATE #1,1,1:FR A 


INT CHR$(7);:G0T0 3480 


3900 1oi=ROUND(SGR((idi-d2)/2)%24ha 31 


ut*2),4):LOCATE #1,2,14:PRINTH1, "La 
longueur m est de:":FRINT #1," "il 

ci;"cm ." 

3515 CALL &EB06: RETURN 

3520 TAB1=2:TAB2=2:G60SUE 5û7û 

3530 TABI=2:TAB2=6:GOSUE 522%û 

2940 TAB1=2:TAB2=10:G0SUB 5250 


S90 IF d2:di THEN LOCATE #i,1,1:FR A 


INT CHR$ (7); :GO0T0 354û 


3560 airm=ROUND{((PI#ioii/2)#idi+dz : 


},4):LOCATE #1,2,14:PRINT#1, "La sur 
face laterale":FRINT 4 “est de :" 
sairm;"cm';CHR$ (2555 ," 

3570 CALL SBBG6: RETURN 

3580 ‘ SFHERE 

3590 MODE 2:GO0OSUB 54Gü: GOSUB 5570 
3605 DEG 


3610 PLOT 400, 200:F0R FAzû TO Zôû S à 


TEP 10:DRAM 320+80#C0S (F2) , 200+B05 
INFZ) :NEXT 

3620 PLOT 400,200:FOR F4=0 TO 3460 5 
TEP 10:DRAW 320+804C08 (F2), 200+2045 
INFZ):NEXT 

3630 MOVE 320,280: DRAMR 100, 0: DRAW 
R -4,-8:MOVER 8,0:DRAMR -4, 8: DRAUR 
0,-160:DRAUR -4,8:MOVER 8,0: DRAUR - 
4,-B:DRAUR 100,0 

3640 LOCATE 28,13:FRINT "d' 

3650 fo1$=CHR$ 124): fo2$="" 

3660 fo=1 


3670 LOCATE #2,59,9:PRINT #3,foi$:" 
V=(";CHRS 184) ; "ds: CHRS (254): "3/8" 
:fot$ 


3680 LOCATE #3,59,16:PRINT #5, fo2$: 
“Ao=":CHR$ (184) ;". ds CHR$ (255) ; f02$ 


3690 IF INKEY(IR)=0 THEN 3780 


26 


3FW 


#X8 


VE 
AUX 
EG 
ZE 


UN 





7770 


3700 IF INÉEY(47)=0 THEN 3730 

3710 IF INKEY(9i=0 THEN CLS:RETURN 
3720 GOT 3690 

3730 fo=foti:IF fo:2 THEN fai 
3740 ON fo GOSUE 3760,3770 

3750 GOTO 3675 

3760 foi$=CHR$ (24) : t024$="": RETURN 
3770 fo2$=CHR$ (24) : foi $="": RETURN 
3780 CALL $KBBUS: 
790,3820: CLS#1:GOSUR 55 
G:GOTO 365û 

3790 TABI=Z: TAB2=2: 


£co 
JJ7 


GG: GOSUE 


GOSUR 3235 


3800 volu=ROUNL ({FI4d2" 33/86 eL0CA 5 


TE #i,2,8:FRINT#I, "Le volume est de 
Ds PRINT #1," ss 


olu: "cm"; CHR# (254 
TRES 


3815 CALE SBBG6: RETURN 
3820 TABI=2: TAR2=2: GOSUE 


Eenc, 
Jégu 


2920 airo=ROUND (FI#d2%2,4):LOCATE # : 


1,2,8:FRINT#I,"La surface totale":F 
RINT #1," est de :"sairos "cm"; CHR#: 
299)e" 

3640 CALL SEBG6: RETURN 

Sas ‘ calotte spherique 

3860 MODE 2:G0SUB 5400: GOSUR 5590 
3870 DEG 


TEF Gi: DRAW 320+8 
IN(FX):NEXT 


3890 FLOT 400,20G0:F0R Feg TO 36G 5 : 


TEF 1O:DRAH 3204868005 (F4), 200+20%S 
INIFA) :NEXT 
3900 FOR F=10 TO à 
784008 (75) 2RAZ=190+804S IN (75) : FLOT 
RAIRA2:FOR G4=i T0 360 STEF IG: DRA 
W 320+2+(RA1-520) #C05 (6%) ,RAZ+(F +1) 
#SIN(GA) :NEXT:NEXT 
3710 MOVE 326-78#C05 (75) ,RA2: DRAUR 
-S0, 0: DRAUR -2,4:DRAWR 4,0: DRAUR - 
474: DRAWR 0,280-RAZ: DRAWR -2, -4: DRA 
WA 4,0: DRAWR -2,4:DRAW 320,280 
3920 MOVE 200-804C06 (75) ,RAZ: DRAWR 
Ü,60:DRAWR 8,4:MOVER O,-B:DRAWR -8, 
4: DRAH RAÏ+20,RA2+60: DRAUR -8, 4: MOV 
ER 0,-8:DRAWR 6,4: DRAUR 0, -6û 
sus MOVE 400,260: DRAMR 9,-160: DRAM 
R -6,4:MOVER Ô,-B:DRAWR 8,4:DRAR - 
160,0: DRAHR 8,4: MOVER G,-B:DRAWR -5 
.4:DRAW 240,206 
3740 LOCATE 4G,S:PRINT"S":LOCATE 30 
$B:PRINT "h':LOCATE 40,19:PRINT "d" 


3950 fo1$=CHR$ (24) : f02$="": f05$="" 

3960 fa=i 

3970 LOCATE #5,59,6:PRINT #3,f01$;" 
V= ("CHARS (184) 5". d'sCHR$ (255) : "7/6 


de di {d-2h)";foi$ 


CLS#1:0N to GOSUE 3 : 





STEP -Z:RAÏ=TEG+ 


"4 


VF 


VE 


+PM 





* 


3980 LOCATE #3,59,12:PRINT #3, f02$; 
*An=" 3 CHRS (184) ;".d.h"; f02$ 

3990 LOCATE #3,59,18:PRINT #3, fo3$; EG 
"An= ("3 CHRS (184) ;"/4), (s";CHRS (255) 
;"H4h" 3 CHRS (255) ;") ": 038 

4000 IF INKEY(18)=0 THEN 4090 >WD 


4010 IF INKEY(47)=0 THEN 4040 DWE 
4020 IF INKEY(9)=0 THEN CLS:RETURN >CK 
4030 GOTO 4000 LU] 
4040 fo=foti:IF fo>3 THEN fo=i }XE 
4050 ON fo GOSUE 4060,4070,4080:G0T >GH 
0 3970 

?JH 


4060 foi$=CHR$ (24) : f02$="": fo5$="": : 
RETURN 

4070 f02$=CHR$ (24) : fo1$="": f03$="": SJ] 
RETURN 

4080 fo3$=CHR$ (24) : fo1$="": f02$=""s JK 
RETURN 

4090 CALL &BBO3:CLS#1:0N fo GOSUR 4 >FM 
100,4140,4180:CLS#1:G60SUR 5500: G0SU 
B 5390:60T0 3950 

4100 TAB1=2:TAB2=2:G0SUB 5170 

4110 TAB1=2:TAB2=6:GO0SUB 5250 

4120 volu=ROUND { { (PI#HAUT*2) /6) # (3% 
D2-24HAUT) , 4) :LOCATE #1,2, 10: PRINT# 
1,"Le volume est de :":PRINT #1," " 
svolu; "cm"; CHR$(254);" ," 


4130 CALL &BBO6:RETURN >RK 
4140 TAB1=2: TAB2=2:G0SUB 5250 >XR 
4150 TAB1=2: TAB2=6:G0SUB 5170 >XY 


4160 airm=ROUND (FI+xd2#haut, 4) : LOCAT 
E #1,2,10:PRINT#1,"La surface later 
ale":PRINT #1," est de :";airm; "cm" 
sCHR$(255);" ." 


4170 CALL &BBOb: RETURN RP 
4180 TAB1=2: TAB2=2:G0SUR 5310 ?XT 
4190 TAB1=2: TAB2=6:GO0SUE 5170 ?XC 


4200 airm=ROUND ((P1/4)*#(s5eg"2+4#hau 

t°2),4):LOCATE #1,2,10:PRINT#1, "La 
surface laterale":PRINT #1," est de 
s'sairm; "cm"; CHR$(255);" ,." 


4210 CALL &BB0b: RETURN ?RJ 
4220 ‘ tonneau ?YA 
4230 MODE 2:G0SUB 5400:G60SUB 5390 DAT 


4240 DEG:PLOT 365,180:FOR #7=0 TO 3 
60 STEP 10:DRAW 320+45#C05 (4%) , 180+ 
1S4SIN (4%) :NEXT 

4250 PLOT 345,340:FOR #%=0 TO 360 S > 
TEP 10:DRAW 320+45#C08 (42), 34041545 
INC) :NEXT 

4260 PLOT 385,240:FOR ##=0 TO 360 S 
TEP 10: DRAM 320+65#C05 (#2) , 26042245 
IN(#2) :NEXT 

4270 MOVE 365, 180:DRAR 10,27: DRAUR >TU 
6,26: DRAMR 4,27: DRAUR -4, 27: DRAWR 
-b,26:DRAWR -10, 27 


>6V 





R -6,26:DRAWR -4,27:DRAWR 4,27: DRAW 
R 6,2b:DRAUR 10,27 
4290 MOVE 385,260: DRAWR -8, 4: MOVER 
0,-8:DRAKR 8,4:DRAWR -130,0:DRAWR 8 
,4:MOVER 0,-B:DRAWR -8,4 
4500 MOVE 275,340: DRAWR -80,0:DRAUR >UK 
-4,-B:MOVER 8,0:DRAWR -4,8:DRAWR 0 
,7160:DRAWR -4,8:MOVER 8,0: DRAWR -4 
,-8:DRAHR 80, 0 
4310 MOVE 365,180: DRAWR 0,-50:DRAWR NF 
-B,4:MOVER 0,-8:DRAWR 8,4:DRAWR -9 
0,0:DRAHR 8,4:MOVER 0,-B:DRAUR -8,4 
:DRAKR 0,50 
4320 LOCATE 25,9:PRINT "h":LOCATE 4 >VA 
1,9:PRINT "D':LOCATE 41,17:PRINT "d 
4330 foi$=CHR$ (24) : fo2$="" UF 
4540 fo=i ?EC 
4550  LOCATE #3,58,9:PRINT #3, fo1$; KL 
"VE (CS CHR$ (184) ;".h)/12). (2D";CHR$ 
(255) ; "+d" 3 CHR$ (255) :") ": fo1$ 
360 LOCATE #3,57,16:PRINT #3,fo2$; >VD 
"D= ((6.V)/{";CHR$(184):".h))-(d";C 
HR$ (255) ;"/2) ": f02$ 
4370 ‘ radicaux ?Y6 
4380 PLOT 464,160: DRAWR 4,-14:DRAWR VX 
4,14:DRAKR 160,0 
4390 IF INKEY(18)=0 THEN 4480 
4400 IF INKEY(47)=0 THEN 4430 
4410 IF INKEY(9)=0 THEN CLS:RETURN 
4420 GOTD 4390 
4430 fo=foti:IF fo>2 THEN fo=1 
4440 ON fo GOSUE 4460,4470 
4450 GOTO 4350 
4460 fai$=CHR$ (24) : f02$="": RETURN 
4470 fo2$=CHR$(24):fo1$="": RETURN  >BN 
4480 CALL &BBO3:CLS#1:0N fo GOSUB 4 >GA 
490,4540:CLS#1:60SUB 5500:60SUB 559 
0:G60T0 4330 
4490 TABi=2:TAB2=2:60SUB 5170 
4500 TAB1=2: TAB2=6:GOSUB 5220 XXT 
4510 TAB1=2:TAB2=10:60SUB 5250 ?ŸR 
4520 volu=ROUND (((PI#HAUT)/12)#(2#D >CH 
12+D2*2) ,4):LOCATE #1,2,14:PRINT#I 
"Le volume est de :":PRINT #1," "; 
volu;" cm";CHR$(254);" ," 
4530 CALL &BB06:RETURN 
4540 TAB1=2:TAB2=2:60SUB 5370 
4550 TAB1=2: TAB2=6:G0SUB 5170 }XC 
4560 TAB1=2: TAB2=10:G60SUB 5250 >YX 
4570 DIA=ROUND (SQR ( ( (&xVOL) / (PI#HAU >JG 
T))-(D2%2/2)),4):LOCATE #1,2,14:PRI 
NT#1,"Le diametre D est":PRINT #1," 
de";DIA;"cm ." 
4580 CALL &BB06: RETURN 
4590 ‘ ZONE SPHERIQUE 


?C6 


?WV 
>WH 
?CN 
?ND 


?XB 


>RP 
>XZ 


>RV 
ZA 


4280 MOVE 275,180:DRAWR -10,27: DRAM TK À 1400 MODE 2:G0SUB 5400:G0SUB 5590  >AU 


27 








4610 DEG VC 
4620 PLOT 400,200:FOR F4=0 TO 360 S >FD 
TEP 10:DRAW 320+B04C05 (F2), 200+80x5 
IN(FY) :NEXT 

4630 PLOT 400,200:FOR FX=0 TO 360 S >FY 
TEP 10:DRAW 320+80#C05 (F%) , 20042045 
IN(F%) :NEXT 

4640 FOR F=0 TO 20:RA1=320+7B#C05 (1 >4K 
35-F) :RA2=200+78#SIN(135-F) :PLOT RA 
1,RA2 | 

4650 FOR 6%=360 TO 180 STEP -10:DRA >XU 
M 320+(RA1-320) #C0S (6%) , RA2+0. 34 (RA 
2-F-200) #SIN(6%) :NEXT 

4660 NEXT >LH 
4670 MOVE RA,RA2:DRAWR 0,40: DRAUR  >NQ 
B,4:MOVER 0,-8:DRAWR -B,4:DRAW 320- 
784C05 (115) ,240+78SIN(115) :DRAWR - 
8,4:MOVER O,-B:DRAMR 8,4: DRAWR 0, -4 

û 

4680 MOVE 240,200:DRAWR 18,4:MOVER >GD 
0,-8:DRAWR -18,4:DRAWR 160,0: DRAWR 
-18,4:MOVER 0,-B:DRAWR 18,4 

4690 MOVE 320+78#C05 (135), 200+784S1 
N(135) :DRAWR -40, 0: DRAWR -2, 4: DRAUR 
4,0:DRAMR -2,-4:DRAMR 0,-(200+7845 
IN(135)-RA2) :DRAWR -2,-4:DRAMR 4,0: 
DRAWR -2,4:DRAW RAI, RA2 

4700 MOVE 320+78#C05 (135) ,200+78#5I 

N(135) :DRAWR 0,100: DRAWR 8, 4: MOVER 
0,-B:DRAUR -8,4:DRAW 320-78#C05 (135 
),300+7BXSIN (135) : DRAMR -B, 4: MOVER 
0,-8:DRAWR 8,4: DRAWR 0, -100 

4710 LOCATE 40,3:PRINT "di":LOCATE 
40,6:PRINT "d2":LOCATE 40,13:PRINT 
"d":LOCATE 27,9:PRINT "h" 

4720 fo1$=CHR$ (24) : f02$="": f03$="" 
4730 fo=1 

4740 LOCATE #3,58,6:PRINT #3,foi$;" 

V=((";CHRS (184) ;".h)/24).":LOCATE # 
3,58,7:PRINT #3," (3d1";CHR$ (255) ; "+ 
342"; CHR (255) ;"+4h";CHRS (255) ;") "5; 
toi$ 

4750, LOCATE #3,58,12:PRINT #3,f02$; >HA 
"Am=";CHR$ (184): ".d.h": fo2$ 

4760 LOCATE #3,57,18:PRINT #3, f03$; ON 
"Ao=(";CHR$ (184) ;"/4), (4d.h+di";CHR 

$ (255) ; "+2"; CHRS (255) ; ") "5 403$ 


>KC 


4770 IF INKEY(18)=0 THEN 4860 W1 
4780 IF INKEY(47)=0 THEN 4810 >WX 
4790 IF INKEY(9)=0 THEN CLS:RETURN CA 
4800 GOTO 4770 >NH 
4810 fo=foti:IF fo>3 THEN fo=1 >XK 


4820 ON fo GOSUR 4830,4840,4850:60T >GA 
0 4740 
4830 fo1$=CHR$ (24) : fo2$="":#03$="": DJN 
RETURN 
4840 fo2$=CHR$ (24) : fo1$="": f03$="": >JP 





RETURN 

4850 fo3$=CHR$ (24) : fo1$="": f02$="": >JQ 
RETURN 

480 CALL &BBO3:CLS#1:0N fo GOSUB 4.>P6 
870,4140,4930:CLS#1:G0SUB 5500:60SU 

B 5590:60T0 4720 


4870 TAB1=2:TAB2=2:G0SUB 5170 XD 
4880 TAB1=2:TAB2=6:GOSUB 5130 ?XE 
4890 TAB1=2:TAB2=10:G0SUB 5150 3YC 


4900 IF d4>d3 THEN LOCATE #1,1,1:PR >AM 
INT CHR$(7)::G0T0 4890 

4910 volu=ROUND ( { (PI#HAUT) /24) # (3#D 
3°24+34D4"2+4#HAUT 2) ,4) :LOCATE #1,2 
14:PRINT#1,"Le volume est de :":PR 
INT #1," "svolu:" cm':CHR$(254)5;" . 


>AD 


4920 CALL &BB06: RETURN ART 
4930 TAB1=2:TABZ=2:G0SUB 3250 >X1 
4940 TAB1=2:TAB2=6:GOSUB 5170 3XF 
4950 TAB1=2:TAB2=10:G60SUB 5150 3YX 


4960 IF d3>d2 THEN LOCATE #i,1,1:PR 
INT CHR$ (7): :G0T0 4950 

4970 TABI=1:TAB2=14:G0SUB 5150 ?ŸE 
4980 IF d4>d3 THEN LOCATE #1,1,1:PR )AD 
INT CHR$(7);:G0TD 4970 

4990 airo=ROUND((P1/4)#(4#d2#haut+d >MG 
3*2+d4"2),4):LOCATE #1,2,18:PRINT # 
1,"La surface totale":PRINT #1," es 
t de :"sairo; "cm"; CHR$ (255): 

9000 CALL &BBOb:RETURN 

9010 LOCATE #1,tab1,tab2:PRINT#1,"E 
NTREZ LE COTE à en":PRINT#1," cm - 
-}"#:LINE INPUT#1,"",coi$ 

9020 col=VAL(coi$):1F coi=0 THEN LO >VX 
CATE #1,1,1:PRINT#1,CHR$ (7) :G0T0 50 
10 

9030 RETURN 

9040 LOCATE #1, tab1, tab2:PRINT#1,"E 
NTREZ LE COTE b en":PRINT#i," cm - 
-?"s2LINE INPUT#1,"",co2$ 

5050 co2=VAL(co2$):1F co2=0 THEN LO >VG 
CATE #1,1,1:PRINT#1,CHR$ (7) :GOT0 50 
40 

0060 RETURN 

9070 LOCATE #1,tab1,tab2:PRINT#1,"E 
NTREZ LA LONGUEUR m":PRINT#1," en c 
m --)";s LINE INPUT#1,"",lo1$ 

9080 loi=VAL(101$):1F loi=0 THEN LO >WF 
CATE #1,1,1:PRINT#1,CHR$ (7) :G0T0 50 
70 

9090 RETURN 

5100 LOCATE #1,tabi,tab2:PRINT#1,"E 
NTREZ LA LONGUEUR mi";:PRINT#1," en 
cm -—-)";:LINE INPUT#1,"",102$ 

5110 lo2=VAL(102$):1F 102=0 THEN LO >W4 
CATE #1,1,1:PRINT#1,CHR$ (7) :60T0 51 

00 


JAX 


?FE 
TB 


FH 
?WB 





5120 RETURN 
9130 LOCATE #1,tabl,tab2:FRINT#I,"E KP 
NTREZ LE DIAMETRE di":PRINT#1," en 
cm -->"s;2LINE INPUT#1,"",D3$:D3=VAL 
(D3$):IF D3=0 THEN LOCATE #1,1,1:PR 
INT CHR$(7):G60T0 5130 

5140 RETURN 

9190 LOCATE #1,tabi,tab2:PRINT#1,"E 

NTREZ LE DIAMETRE d2":PRINT#1," en 

cm -->"s;:LINE INPUT#1,"",D4$:D4=VAL 
(D4$):IF D4=0 THEN LOCATE #1,1,1:PR 
INT CHR$(7):G0T0 5150 

5160 RETURN 

9170 LOCATE #1,tabi,tab2:PRINT#1,"E 

NTREZ LA HAUTEUR":PRINT#1," en cm 
--}"52LINE INPUT#1,haut$:haut=VAL ( 
haut$):1F haut=0 THEN LOCATE #1,1,1 
:PRINT#1,CHR$ (7) :60T0 5170 

5180 RETURN 

9190 LOCATE #1,tabi,tab2:PRINT#I,"E 

NTREZ LE RAYON r en":PRINT#I," cm 
-—)"32:LINE INPUT#I,"",ra$ 

5200 ra=VAL(ra$):1IF ra=0 THEN LOCAT 
E #1,1,1:PRINT CHR$(7):G0TD 5190 

5210 RETURN 

9220 LOCATE #1,tabi,tab2:PRINT#1,"E 
NTREZ LE DIAMETRE D':PRINT#i," en c 
m --)";:LINE INPUT#1,"",D1$ 

9230 Di=VAL(D1$):1IF D1=0 THEN LOCAT >MD 
E #1,1,1:PRINT CHR$(7):G0T0 5220 

3240 RETURN 

9290 LOCATE #1,tabi,tab2:PRINT#1,"E 

NTREZ LE DIAMETRE d':PRINT#1," en c 
m -->"::LINE INPUT#1,"",D2$ 

9260 D2=VAL(D2$):IF D2=0 THEN LOCAT >MN 
E #1,1,1:PRINT CHR$(7):G0T0 5250 

5270 RETURN >FH 
9280 LOCATE #1,tabi,tab2:PRINT#1,"E >JF 

NTREZ L'AIRE A2 en":PRINT#{," cm"; 
CHR$ (255) 3" --}"5:LINE INPUT#1,"",a 
ir2$ 

9290 air2=VAL(air2$):1F air2=0 THEN 
LOCATE #1,1,1:PRINT#1,CHR$ (7) : GOTO 
3280 

9300 RETURN ?>FB 
9310 LOCATE #1,tabi,tab2:PRINT#1,"E >RH 

NTREZ LE SEGMENT s'":PRINT#1," en c 

m —)"s;:LINE INPUT#1,"",5eg$ 

5320 seg=VAL (seg$):1IF seg=0 THEN LO >TM 
CATE #1,1,1:PRINT CHR$(7):60T0 5310 


?FD 
K1 


FF 
CT 


FH 
?LY 


NH 


a 


?FB 
PR 


PF 


AU 


5330 RETURN >FE 
5340 LOCATE #1,tabi,tab2:PRINT#1,"E JA 
NTREZ L'AIRE Ai en":PRINTH#I," cn; 
CHRS (255) 5" ——3"; LINE INPUT#,"" a 
iris 


d airi=VAL(airi$):1F airi=0 THEN >AJ 


28 


1? 








LOCATE #1,1,1:PRINT#1,CHR$ (7) :GOTO 
5340 

5360 RETURN >FH 
9370 LOCATE #1,tabi,tab2:PRINT#1,"E >HV 
NTREZ LE VOLUME en":PRINT#I," cn"; 
CHR$(254)5" --}"s:LINE INPUT#1,"",v 
ol$ 

5380 vol=VAL(vol$):IF vol=0 THEN LO >X7 
CATE #1,1,1:PRINT#1,CHR$(7):GOTO 53 

70 


5390 RETURN GA 
5400 ‘ ?YB 
5410 ‘ dessin contour ecran »YC 
5420 ‘ >YD 


9430 MODE 2:0RIGIN 0,0:PLOT 0,0,13: >MP 
DRAWR 639,0: DRAWR 0,399: DRAWR -639, 
O:DRAMR 0,-399 

5440 PLOT 3,3:DRAHR 633,0: DRAUR 0,3 >HF 
93:DRAWR -633,0:DRAWR 0,-393 

9450 PLOT 4,80:DRAWR 631,0:PLOTR 0, >TK 
—3:DRAWR -631,0 

9460 PLOT 165,3:DRAWR 6,74:PLOTR 3, >QA 
0: DRAWR. 0, -74 

3470 PLOT 440,B0:DRAWR 0,317:PLOTR }VL 
-3,0:DRAMR 0,-317 

9480 PLOT 440,355:DRAWR 194,0:PLOTR >UWX 
0,-3:DRAWR -194,0 

9490 LOCATE 64,2:PRINT "FORMULES"  >CR 
9900 WINDOW #1,2,23,2,19:PAPER #1,1 DRB 
:PEN #1,0:CLS #1 

9910 LOCATE #1,3,3:PRINT#1, "CHOISIS >UF 
SEZ LA BONNE" 

9920 LOCATE #1,3,5:PRINT#1, "FORMULE RH 

AVEC LA" 

9930 LOCATE #1,3,7:PRINT#1, "BARRE D 
"ESPACEMENT. " 

9940 LOCATE #1,3,13:PRINT#1,"CECI F DUU 
AIT , VALIDEZ" 

9990 LOCATE #1,3,15:PRINT#1,"PAR EN JU 
TER ." 

5960 WINDOW #2,57,79,5,19:PAPER #2, 
O:PEN #2,1:CLS #2 

5570 WINDOW #4,23,79,22,24:PAPER #4 UE 
,0:PEN #4,1:CLS 44 

9980 LOCATE 2,23:PRINT "COPY=RETOUR >27D 
AU MENU" :RETURN 

9990 LOCATE #4,1,1:PRINT#4, "V: Vol. 
Am:surf.laterale Ao:surf.tot, h: 
haut r:rayon" 

9600 LOCATE #4,1,3:PRINT#4, "e:DIAG. 
d,D:DIAM. m:generatrice s:corde a 
:long. b:larg." 

9610 RETURN FF 
9620 MODE 2:PRINT:PRINT " VALEUR EN >PZ 

TREE ERRONEE ... UNE TOUCHE POUR RE 
COMMENCER ...":CALL &BBOS:CALL &BBO 

6:PRINT CHR$(7) : RUN re) 


?UA 


>UB 


>64 


>FX 





MUSICA 


Hammaing CHIEV 






Valable Pour 


Il n’existe pas encore de 
programme simple d’em- 
ploi et bon marché qui per- 
mette d’entrer rapidement 
une mélodie, de Ia sauver et 
même d’en tirer un pro- 
gramme BASIC. Cet oubli 
est réparé aujourd’hui avec 
MUSICA. 


Ce programme utilisant les touches, les possesseurs de cla- 
vier AZERTY devront modifier les lignes suivantes dans 


le programme principal : 


(attention : le symbol ° correspond à ‘‘[”” et $ à “1”. 


390 PEN S:LOCATE {1,8:PRINT " 936" >KY 
::PEN 1:PRINT " = Octave -{1" 

60G PEN Z:LOCATE 11,10:PRINT " °-8 LU 
“is PEN L:FRINT " = Octave +1" 

6i0 PEN S:LOCATE 11,12:PRINT " ?,6 }7Q 


Fe: PEN 1: PRINT " = Dur"+CHR$(92)+'e 

-|" 
620 PEN 3:LOCATE 11,14: PRINT " 9/8 37T 
"s2PEN 1:PRINT " = Dur"+CHR$(92)+'e 

+" 
630 PEN ZiLOCATE 2, IG: PRINT "°WS":: UU 
PEN 1:PRINT " ..,permet d'enreaistr 
er les notes que YOUS avez jou 
"4CHR$(92)+"es avec leurs ENVs, 

ENTS, Dur“+CHR$(92)+"es et Volum 
es, ":PEN 2:PRINT " Ün grand E se 


dessine si l'enregis- 
a lieu" 
840 PEN 3:LOCATE 2,10:PRINT "°?8":: M 
PEN 1:PRINT " .. permet de quitter 
sous BASIC ou CP/M" 
1520 PEN 3:LOCATE 1,21:PRINT"W"::PE >GP 
N 1:PRINT':ENREGISTRER" 
1546 PEN Z:LOCATE 1,25: PRINT" 7": PE 57L 
N {:PRINT'": SORTIR" 
2680 PEN 1:LOCATE 2.6:PRINT "Plus d >YA 
e place, mec !":CHR${7) ::LOCATE 2,8 
tPRINT "Appuve sur WS":MHILE INKEY 
{71} 0: WEND: GOSUR 2690: en=0: GOSUE 
2670:enri=0:G0T0 1610 
2850 IF INÉEY(67)=0 THEN PRINT ‘ As TE 
cii":60T0 2876 


-trement 


_29 


cn mnt mm 


= 








15 SYMEOL AFTER 47 
26 SYMEOL 48,126, 66, 70,74,82,98, 126 D 
Ô 

30 SYMEOL 49,24,8,6,8,8,8,8,0 WR 
40 SYMBOL 56,126,2,2,126,64,64,176, :ED 
ÿ 


MU 


50 SYMBOL 51.126,2,2,30.2.2,124,0  ?2D 
60 SYMBOL 52,66.66,66,126,2,2,2,0  >2E 
126,2,2,126, )C 


70 SYMBOL 53,126,64,64, 
ü 

86 SYMEOL 54,126.64,64,126,66,86,17 DC 
6.û 





9û SYMEQL 55,126.2,2,2,2,2,2.0 
100 SYMEOL 56.126. 66.66, 126.66.66.1 
26.û 
116 SYMEOL S7,126,66,66,:26,2,2,128 à 


126 SYMBOL 59,72,16,125,12,134,204, : 


1is,û 


120 SYMBOL 64,24,36,102,102, 102,102 


62,0 


140 SYMECL £5,40,108,198.198,228,19 à 


8,196, 


150 SYMEOL &6,220,198.198,220, 198,1 à 


58,220,0 


160 SYMBOL 67,108,198,192,192,192,1 JF 


98, 108,0 

170 SYMEOL 68.725,198, 
58,220.0 
180 SYMEOL 
92,222,0 
190 SYMBOL 
92,192,0 
250 SYMEOL 
98,108,0 
215 SYMBOL 
96,198.0 
220 SYMBOL 
ë,ü 

235 SYMBOL 
2ü.0 

240 SYMBOL 
G4,198,0 
25ù SYMROL 
92,222,0 
26û SYMBOL 
96.198,06 
270 SYMEOL 
04,198,û 


69,222,192 


70,222,192 


280 SYMEOL 79.108.198, 198,198, 198,1 : 


98,108.0 


290 SYMEOL 80,220,198,198.220,192,1 : 


92,192,0 


300 SYMBOL 81,108,198,198,198,246,7 : 


18,108,6 


319 SYMEOL 82,220,198, 198,220, 204,1 : 


98.194,60 


320 SYMBOL 83,108,192,108.6. 198.198 : 


108,0 


350 SYMBOL 84,126,24,24,24,24,24,74 : 


.Ù 


340 SYMEOL 85,198.198,198,198,198.1 > 


98, 108,0 


350 SYMEOL 86.198,198,198,198,198,1 } 


08, 40,0 
360 SYMBOL 87,198, 198, 198,214, 186, 1 
08, 198,0 


198.198,198,1 : 
.216,192,192.1 à 
.216,192,192,1 
71.108.198.192,204,198,1 ; 
72,198,198,198,238, 198,1 : 
73,126.24,74,24,24,24,12 5 
74,30,12,12,12,204,204,1 : 
75,198.204.216,208,216,7 à 
78.192.192,193,192,192,1 
77,198.156,186,214,198,1 : 


78,198,102,182,214,218,2 : 


ps 
EE 


370 SYMBOL 88,198,108.40,40, 108,198 >GF 


,198, 0 


380 SYMEOL 69,198,198,198, 10û,46,56 : 


6,0 


370 SYMBOL 96,251.6,12,24,46,96,225 : 


û 


460 SYMBOL 92,8,16.60.102,128,58,8û Ci 


Ü 


410 SYMEOL 96,16,8,6û,102,126,96,60 : 


0 


ü,0 


450 INE C,I2INE 1.26:1NE 2,20: INE 3 : 


.6 
446 BORDER O:FAFER G:MODE 


450 LOCATE 2.12Z:PRINT "INSTRUCTIONS : 


OUT où NON (O/N) 5 ": 


460 IF UFFERS(INÉEY#)="O" THEN FRIN : 


T''Qui":FOR ii TO ZGG:NEXT 1:G0T0 
496 

470 IF UPPERS(INÉEY#:="N" THEN PRIN 
T''Non":FOR i=1 TO SÜO:NEXT i:G0T0 
96û 

480 GOTG 460 

490 MODE L:FEN 2:LOCATE 13, 1:PRINT 


900 LOCATE 12,2:FPRINT "£"3:PEN LiPR 5 


INT'MU SI CA ";:PEN 2:PRINT':" 


910 LOCATE 15, SPRINT ; 


Li 


920 PEN S:LOCATE 2,7:PRINT "MUSICA" 
3:PEN L:PRINT " est un synth"+CHR$( 
92)+"tiseur de 7 octaves qui vou 
s permet de cr'+CHR$(92)+"er des mo 
rceaux musicaux que Vous POuv 
ez ensuite les utiliser dans vos 
propres programmes (BASIC). 
930 PRINT: PRINT:PRINT " Vous jouere 
z avec les Ze et 3e rang"+CHR$(92)+ 
“es du Clavier." 


420 SYMBOL 95,24,36,8û,102,126,96.6 DK 


#W] 


? 


V 


540 PRINT:PRINT " Les touches num"+ à 


CHR$ (92)+"riques du Clavier s 

ervent de choix de l'ENveloppe de 
Volume (";:FEN 2:PRINT " O=sans 

ENV "::PEN 1:PRINT ")." 

550 PRINT:FRINT " M'4CHR#(95)+"mes 

remarques pour les ENveloppes de T 

on mais en utilisant je pav"+CHR$(9 

2)+" num"+CHR$(92)+"rique" 


30 


“ 





IE 


2MH 


CM 


d65 GOSUE 545 :JÙ 
9/0 CLS:FEN 3:LOCATE 11.4:PRINT "°C TG 
LRE"::PEN 1:FRINT " = Volume -{" 
980 PEN 3:LOCATE 11.6:PRINT "°DELS" MR 
:2PEN SPRINT " = Volume +1" 
500 FEN Z:LOCATE 11.8:PRINT " 9-8" EC 
*:FEN Î: PRINT " = Octave -{" 
bÜG FEN Z:LDCATE 11,1G:FRINT " 96 :MN 
“ss: PEN LiPRINT "= Octave #1" 
619 PEN 3:LOCATE 11,12: PRINT " 9£8 37e 
"st PEN L:FRINT " = Dur"+CHk$(92i+"e 

-j" 
b2û PEN S:LOCATE 11,14: PRINT " 956 FF 
"stPEN Le PRINT " = Dur"+CHR$i97)+'e 

+{":PEN ZSiLOCATE 6,16:PRINT " ‘E 
SPACES"::FEN 1:PRINT " = Kjanc" 
&3G GOSUE 94G *JE 
640 CLS:FEN 2:LOCATE 15,2:PRINT "EN :QY 
RIGISTRER" 
65 FEN 3:LOCATE 2,10:PRINT "°16":: VF 
FEN 1: PRINT " ...permet d'enrigistr 
er les notes que vous avez jou 
"4CHR$(92)+'es avec leurs ENVS. 

ENTS, Dur"+CHR$(92)+'es et Volum 

es.":FEN Z:FRINT " Un grand E se 
dessine 5i l'enrigis- -trement 

a lieu” 
660 GOSUR 945 JE 
670 CLS:FEN 2:LOCATE 17,2Z:PRINT "EC KV 
OUTER" 
680 PEN S:LOCATE 3,10:PRINT "°H£":: AU 
PEN L:PRINT " ...permet d'"+CHR$(92 
)+'couter les notes que vous av 
ez enrigistr"+CHR$(92)+"es ou charg 
"4CHR$ (92)+"es," 
690 GOSUR 940 > JH 
700 CLS:FEN 2:LOCATE 15,2:PRINT "IN GB 
ITIALISER" 
710 PEN S:LOCATE 2,10:FRINT "°X6":: TR 
PEN 1:PRINT " ...permet de recommen 
cer à 2"+CHR$(92)+"ro le MO 
rceau musical," 
720 GOSUB 946 JE 


720 CLS:PEN 2:LOCATE 17,2:FRINT "SA :JK 


UVER" 


740 PEN S:LOCATE 2,7:PRINT "°VS"s;:P > 


EN 1:PRINT " ...permet de sauver le 
s notes que vous avez enrigistr 
"+CHR$ (92) +"es, " 
750 PRINT:PRINT" 
nt "+CHR$(95)+"tre sauv"+CHR$ (92) +" 
es sous 2 formes :" 

76G PEN 2:PRINT:PRINT" ASCII: ": : PEN 

1:PRINT " fichier (suivi de .MUS) 

qui peut "+CHR$(95)+"tre  recharg" 
+CHR$(92)+" et trait"+CHR$(92)+" pa 
r MUSICA." 


Ces notes peuve : 


4 
ri 
n 


= 
= 


770 PEN Z:PRINT: PRINT" BASIC: "::PEN 
1:PRINT " fichier intraitable par 
MUSICA mais peut "+CHR$(95)+"tr 
e utilis"+CHR$(92j+" "4CHR#(E9)+" p 

artir du RASIC," 

780 GOSUE 946 

790 CLS:PEN 2:LOCATE 17,2:FPRINT 

ARGER" 

800 FEN 3:LOCATE 2,10:PRINT 

FEN 1:PRINT " ...permet de recharge 

r les notes que vous avez pr" 

+CHR#(92)+"alablement sauv'+CHR$ (92 

)+'es." 

810 PRINT: PRINT" 

r'+CHR$(96)+"s le chargement, 

d'ajouter d'autres notes et de les 
sauver, 

820 GOSUE 540 


MOÇGMe a 


850 CLS:PEN Z:LOCATE 17,2:FRINT "50 : 


RTIR" 
B4Q PEN S:LOCATE Z,10:FRINT "MS": 
PEN 1:PRINT " .,,permet de quitter 
sous BASIC ou CF/M" 

850 GOSUR 94û 

Béû CLS:PEN Z:LOCATE 13.1 
870 LOCATE 12,2:PRINT "it: 


INT MUSIC A "::PEN Z:PRINT">" 


880 LOCATE LE SPRINT NRRRRES EEE 3 


890 PEN 1:LOCATE 2,7:FRINT " 

CHR$(S9)+" ! c'est tout. J'esp"+CHR 

$(96)+"re que vous avez tout not" 

+CHR#(92)+"," 

900 PEN Z:PRINT: PRINT " NOTA: "::PEN 
1:PRINT " Vous pouvez nie les 
ENVS et ENTS du programme :":PEN 
Z:PRINT:PRINT " Lignes 560 "4CHR 

$(59)+" 1130 et 3070 "4CHR$(59)+" Z 

240" 


910 PEN Î:PRINT:FRINT " EE le nombr : 


e de notes utilisables :":PEN 2:FRI 
NT: PRINT " Ligne 1580 ( mais atte 
ntion "+CHR$(59)+" la m"+CHR 
$(92)+"moire de votre AMSTRAD ! )"; 


920 PEN 3:LOCATE 2,23:PRINT "...ES 
PACE: POUR DEMARRER MUSICA 1..." 

30 IF INKEYS{>" " THEN 930 ELSE 60 
TO 940 

940 LOCATE 21,25:PEN 3:PRINT "BARRE 
D'ESPACE -—}" 

950 IF INKEY#=" * THEN RETURN ELSE 
60TO 950 

960 ENV 1,10,-15,0.5,3,5,12,15,-1,1 
û 
970 ENV 2,15,1,1,15,10,15,1,-1,12 


"CH fl 


Vous Fouvez, ap : 


SPRINT "== à 


Voil"+ 


#AL 


3 JH 


#FN 


:PEN 1:FR TK 


>EN 


rs 
m 


> 


>FJ 


3UJ 


KI 


> 


2YJ 





980 ENV 3,20,15,1,5,-10,40,5,13,15 
990 ENV 4,10,2,15,10,-1,2,30,3,5 
1000 ENV 5,10,1,5,15,-1,1 

1010 ENV 6,15,3,1,1,-1,15 


1020 ENV 7,5,-30,1, 15,-10, 20,5, 1. 19 3 


1030 ENV 8,1,3,15,13,-1,15 

1946 ENV 9,15,35,1.5,8,-10,5,1,5,1 
1096 ENT 1,2,-15,0,.5,5,-15,10,1, 
J 

1060 ENT 2,15,-20,15,5,-15,10 
1970 ENT 3,1,3,10,15,1,1,50,-1,30 
1680 ENT 4,10,-2,15,10,-1,5 

1996 ENT 5,1,15,1,1,15,10,6,-5,1 
1106 ENT 6,1,12,1,15,-10,1 

HG ENT 7,1,30,1,50,5,10,5,-15,20 
1120 ENT 6,30,-1,8,13,4,5,10,-1,1 


1130 ENT 9,1,-50,1,15,1,15,20,-15,5 :7 


1140 INE G,i: INK 
.b: ORDER Ü: MODE 1 


1150 PLOT 0,336,1:DRAW 639,336: FLOT : 


0,256: DRAW 639,256: PLOT 480,399: DR 
AW 486,0 
1160 PLOT à 
80,396: PLOT 
AW 280,344 
1170 PLOT 


«344: DRAW 280,344: DRAW 2 
286,399: DRAW 288,336: DR 


296,399: DRAW He 
344,344: DRAM 344,399: PLOT 294,3 
DRAW 288,336: PLOT 244,344: DRAW 292, 
336: DRAM 352, 399 
1180 PLOT 360,399: DRAW 360, 344: DRAW 
472,344:DRAW 472,399: PLOT 260, 344: 
DRAW 352,336:PLOT 472,344: DRAW 460, 
36 
1190 FLOT 486,399: DRAW 488, 344: DRAW 
639,344: FLOT 488,344:DRAW 480,336 
1200 FLOT 639,328: DRAW 488, 328: DRAW 
488,264: DRAW 629,264: FLOT 488, 226: 
DRAW 480,336:FLOT 488,264: DRA 480, 
256 
1210 FLOT 0,248: DRAW 480,248:PLOT 0 
,104:DRAW 480, 104:PLOT 0,98: DRAM 48 
0,96 
1220 FLOT 0,88:DRAW 216,88: DRAW 214 
 O:PLOT 232,0:DRAW 232,88: DRAW 472, 
B8:DRAU 472,0:PLOT 216,88: DRAW 224. 
96:DRAW 224,0:PLOT 224,96: DRAN 23 
88:PLOT 472,88: DRAM 480, 96:FLOT 
.56:DRAU 472,56 


n7n 
PA A 


1230 PLOT 639,248:DRAH 488,248: DRAW > 


488,216: DRAN 639,216:FLOT 488,248: 
DRAW 480,256:PLOT 488,216: DRAW 480, 
208:DRAH 639,208 


1, > 


1,26:INK 2,0:INE 3 34 


?E6 


WEB 


?QC 


?2E 


MD 


VX 








y 





1240 PLOT 639,200:DRAH 488,200: DRAH M 


488,0:PLOT 488,200: DRAW 480,208 


1250 FOR t=0 TO 480:PLOT x,104,1:DR CL 


31 


AW :,248,1:x=x+1:NEXT € 
1260 x=30:FOR t=1 TO 12:PLOT x,{üd, 
2:DRAW x,248,2:x=x+40:NEXT t 


1270 x=20:G0SUB 1280:x=60:GOSUR 128 


Ü:x=140:60SUB 1280:+=180:G60SUB 1286 
1x=220:G0SUB 1280: x=300:GOSUE 1280: 
x=34G: GOSUB 1280: »x=420: GOSUR 1280: x 
=460:GOSUR 1280:60T0 1290 

1280 FOR i=i TO 20:PLOT x,160,2:DRA 
W x,248,2:x=x+{:NEXT i:RETURN 

1290 y=152: yy=192: x=312: GOSUE 1440: 
*=924:GOSUR 1440: x=572:G0SUB 1445: x 
=b00:GOSUB 1440 

1300 y=16û: x=532: 
OSUE 1440 

1310 vy=184:x=580:GOSUB 1446 
1320 yy=168:x=552:GOSÛR 1440: 
GOSUR 1440::=564:GOSUB 1440: 
OSUE 1440 

1330 y=176:vy=184:x=552:GOSUE 1440: 
x=044: GOSUB 1440: x=564:GOSUE 1446: x 
=592:60SUB 1440 

1340 x=500:GOSUR 148ü: x= 
480 


GOSUE 144û:: 


x2392:6 


1350 FOR i=0 TO 3:PLOT S64+i,168:DR K 


AW 552+1,176:PLOT 620+i,152:DRAW 60 
O+1,192:NEXT i 

1560 y=152:x=536:GOSUR 1470: x= 
OSUB 1470:x=584:G60SUE 1476 
1270 y=184:x=564:GOSUR 1470: 
OSUE 1470 

1380 y=152:x=940:GOSÛR 1460: x= 
OSUB 1460: x=5808:GOSUE 1460 
1590 v=184:4=552:GOSUR 1460 
OSUB 1460 


:x=980:6 


1400 y=152:x=556:GOSUR 1450:x=556:6 


OSUE 1450: x=584:60SUB 1450 

1410 v=188:x=556:GOSUB 1450: »:=584:6 

DSUB 1450 

1420 y=1b6:x=604:G60SUB 1450 

1430 GOTO 1490 

1440 FOR i=1 TO 4:PLOT x,v,{:DRAW x 

,YYtx#x +1: NEXT i:RETURN 

1450 FOR i=1 TO 8:PLOT x,y:DRAW x,y 

+4: x=x+i:NEXT 1:RETURN 

1460 FOR i=i TO 4:PLOT x,y:DRAW x+4 

,YtB:4=x+1iNEXT à :RETURN 

1470 FOR i=1 TO 4:PLOT x,y:DRAW x-4 

.V+B:x=x+liNEXT ji: RETURN 

. FOR i=1 TO 4:PLOT x,152:DRAH x 
2,192:x=x+{:NEXT 1:RETURN 

Hs PEN 3:LOCATE 32,6: PRINT'C"::PE 

N 1:PRINT":CHARGER" 

1500 PEN Z:LOCATE 32,8:PRINT'V";:PE 

N 1:PRINT": SAUVER" 

1510 PEN 3:LOCATE 32,11:PRINT"B"::P 

EN 1:PRINT":ECOUTER" 


«=544:6 à 


x=044s à 


Sg6:6 À 
#2392:6 à 


S60:6 : 





3LC 


#RC 


Si2:G0SUE 1 :FF 


#MJ 
?VR 
?MK 
FE 
?DY 
?6B 
?GE 
JP 
AA 
?1Y 


BU 





1526 PEN S:LOCATE 1,21: PRINT"Z"::P 
N 1:PRINT':ENRIGISTRER" 

1530 PEN S:LOCATE 1,23: FRINT'X"::P 
N 1:PRINT'": INITIALISER" 

1540 PEN S:LOCATE 1,25: FRINT"M":: PI 
N PRINT": SORTIR" 


m1 


1550 LOCATE 16,23:PRINT'NOTE":LOCAT : 


E 16,24: PRINT"ACTUELLE" 


1560 PEN {:LOCATE 35,17:PRINT "PAR" à 


;:LOCATE 52,19:PRINT "CHIEU": :LOCAT 
E 32,20:PRINT "HANMAING'"::LOCATE 32 
,22:PRINT "COPYRIGHT"; :LOCATE 32,24 
PRINT CHR$(164)+" 63/1988": 

1570 GOSUB 1580:G6070 1610 

1580 notej=0:notel=500: DIM notef (no 
tel) ,duree{notel),volu(notel) envol 
notel) ,ento{notel}:envo=ü:ento=ü:oc 
ta=5: volu=10: duree=20: enri=û 


1590 LOCATE 1,1:PEN 3:PRINT " O"s:P à 


EN 1:PRINT " NOTES JOUEES"::LOCAT 
E 1,3:PEN 3:PRINT notel::FEN 1:PRIN 
T "NOTES LIBRES"; :LOCATE 24,1:PRINT 
"Vs"e PEN 3:FRINT " O0": 
1600 LOCATE 24,3:PEN 1:PRINT "Ti": 
PEN 3:PRINT " O"::LOCATE 32,1:PEN 1 
PRINT "OCT: "3: PEN S:PRINT " Z's:10 
CATE 32,3:PEN Î:PRINT "VOL: ": :PEN 2 3 
PRINT " 8"s;:LOCATE 16,21: PEN 1:PRI 
NT "DUREE: "3:PEN 3:PRINT " 20"::RET 
URN 
1610 PEN 3 
1620 IF INÉEY(69)=0 THEN GOSUR 2170 
:1F enri=i THEN GOSUB 2640 
1630 IF INKEY(47)=0 THEN GOSUR 2596 
:IF enri=i THEN GOSUB 264û 
1640 IF INKEY(59)=0 THEN GOSUB 
:1F enri=i THEN GOSUE 2640 
1650 IF INKEY(60)=0 THEN GOSUB 2? 
:IF enri=1 THEN GOSUE 244û 


1660 IF INKEY(S8)=0 THEN GOSUR 2230 


:IF enri=i THEN GOSUB 2640 


1670 IF INKEY(61)=0 THEN GOSUE 2250 à 


:IF enri=1 THEN GOSUB 2640 
1680 IF INKEY(SS 
‘IF enri=1 THEN GOSUB 2640 


1690 IF INKEY{51)=0 THEN GOSUE 2290 


:IF enri=1 THEN GOSUB 2640 


1700 IF INKEY(52)=0 THEN GOSUB 2710 : 


‘IF enri=1 THEN GOSUR 2440 


1710 IF INKEY(43)=0 THEN GOSUR 2330 > 


:IF enri=1 THEN GOSUB 2640 

1720 IF INKEY(44)=0 THEN GOSUB 2350 
:IF enri=i THEN GOSUB 2640 

1730 IF INKEY(42)=0 THEN GOSUE 23 
‘IF enri={ THEN GOSUB 2640 
1740 IF INKEY(45)=0 THEN GOSUB 
:IF enri=i THEN GOSUR 2640 


m 


mm 


2190 : 


210 > 


)=0 THEN GOSUE 2270 ; 


3TJ 
TL 


3JT 


?EJ 











1750 IF INKEY(37)=0 THEN GOSUB 2416 : 


:IF enri=! THEN GOSUB 2640 
1760 IF INKEY(34)=G THEN GOSUB 
:IF enri={ THEN GOSUE 2640 
1770 IF INÉEY(36)=0 THEN GOSUE 
:IF enri=i THEN GOSUB 2640 
1780 IF INÉEY(27)=0 THEN GOSUB 
:1F enri=1 THEN GOSUB 2440 


2470 


1790 IF INKEY(29)=0 THEN GOSUB 249û 


:IF enri=i THEN GOSUB 2440 


1806 IF INKEY(28)=0 THEN GOSUB 2510 : 


:IF enri=i THEN GOSUB 2440 


1815 IF INKEY(26)=0 THEN GOSUB 25:20 > 


:IF enriz=i THEN GOSUR 2640 
1820 IF INÉEY(19)=0 THEN GOSUR 2550 
:IF enri=i THEN GOSUB 2640 


1830 IF INKEY(17)=0 THEN GOSUE 2576 : 


:IF enri=i THEN GOSUB 2640 


1840 IF INÉEY(64)=0 THEN envo=1:LOC" ; 


ATE 26,1:FEN 3S:FRINT envo; 
1850 IF INÉEY(65)=0 THEN envo= 
ATE 26,1:PEN 3:PRINT envo: 
1866 IF INKEY(57)=0 THEN envo=z: 
ATE 26,1:FEN 3:PRINT envo: 


1870 IF INKEV(56)=0 THEN envo=4:LOC 


ATE 26,1:FEN Z:FRINT envo: 


1880 IF INKEY{49)=0 THEN envo=3:L0C ; 


TE 26,1:PEN 3:PRINT envo:; 


1890 IF INKEY(48)=0 THEN envo=6:LOC ; 


ATE 26,1:FEN 3:FRINT envo: 
1900 IF INKEY(41)=0 THEN envo=7 
ATE 26,1:FEN 3:PRINT envo:; 


1910 IF INÉEY(40)=0 THEN envo=8:LOC : 


ATE 26,1:PEN 3:PRINT envo: 


1926 IF INKEY(33)=0 THEN envo=9:LOC à 


ATE 26,1:FEN 3:PRINT envo: 
1950 IF INKEY(32 


ATE 26,1:FEN 3:PRINT envo: 


1940 IF INÉEY(13)=0 THEN ento=1:L0C 


ATE 26,53:PEN 3:FRINT ento: 


1956 IF INÉEY(14)=0 THEN ento=2:L0C 


ATE 26,3:PEN 3:FRINT ento: 


1960 IF INKEY(5)=0 THEN ento=3:LOCA : 


TE 26,3:PEN Z:PRINT ento: 


1970 IF INKEY(20)=0 THEN ento=4:L0C à 


ATE 26,3:FEN 3:PRINT ento: 
1980 IF INKEY(12)=0 THEN ento= 
ATE 26,3:PEN 3:PRINT ento; 


1990 IF INKEY(4)=0 THEN ento=6:LOCA à 


TE 26,3:PEN 3:PRINT ento; 


2000 IF INKEY(10)=0 THEN ento=7:LOC à 


ATE 26,3:PEN 3:FRINT ento: 
2610 IF INKEY(11)=0 THEN ento=B:LOC 
ATE 26,3:PEN 3:PRINT ento: 
2020 IF INKEY(3)=0 THEN ento=9:LOCA 
TE 26,3:FEN 3:PRINT ento; 
2030 IF INKEY(15)=0 THEN ento=û:LOC 


32 


2430 à 


2:L0C : 


LOC à 


LOC à 


=ÿ THEN envo=ü:LOC à 


g:LOC à 


2450 EX 


EN 


EH 


FU 


?6T 








ATE 26,3:PEN 3:PRINT ento: 

2040 IF INKEY(24)=0 THEN octa=octat 
1:IF octa;é THEN octa=6 ELSE LOCATE 
36,1:PRINT octa-2; 


2050 IF INKEY(25)=0 THEN octa=octa- : 


1:1F octa‘Q THEN octa=û ELSE LOCATE 
36,1: PRINT octa-2: 


2066 IF INÉEY(79)=0 THEN volu=volut :7 


1:1F volu>i5 THEN voiu=15 ELSE LOCA 
TE 36,3:PRINT volu-2: 

2070 IF INKEY(16)=5 THEN volu=volu- 
1:1F volu£5 THEN volu=3 ELSE LOCATE 
36,3:PRINT volu-2; 

2080 IF INKEY{312=0 THEN duree=dure 
eti:1F duree*100 THEN duree=iü0 ELS 
E LOCATE 22,21:PRINT duree: 


2096 IF INKEY(39)=0 THEN duree=dure : 


e-1:IF dureeii THEN duree=i 
CATE 22,21:PRINT duree: 

2100 IF INKEY(71)=0 THEN enri=enri+ 
1:1F enri=2 OR notej=notel THEN enr 
i=0:en=0:GOSUB 2670 ELSE en=3:G6OSUB 
2670 

2110 IF INKEY(54)=0 THEN GOSUE 2700 


ELSE LD 


2120 IF INKEY{63)=0 THEN ERASE note 
$, duree, volu,envo,ento:en=0:G0SUE 2 
670:G0T0 1570 


2130 IF INÉEV(SS)=0 THEN GOSUB 2770 ; 


2140 IF INKEY(62)=0 THEN GOSUR 3350 à 


2150 IF INKEY(38)=0 THEN PEN 3:LOCA : 


TE.2,6:PRINT "SORTIR"; 
OTO 3540 
2160 GOTO 1610 


:GOSUB 3310:6 


2170 IF octa=0 THEN son$="3822" ELS : 


E IF octa=i THEN son$="{91i" ELSE I 
F octa=2 THEN son$="956 " ELSE IF 0 
cta=3 THEN son$="478 " ELSE IF octa 
=4 THEN son$="259 " ELSE IF octa=5 
THEN son$="119 " ELSE son$="é#0 " 
2180 GOSUB 2600:60SUB 2630:LOCATE ? 
J,23:PRINT "DO ";: RETURN 

2190 IF octa=0 THEN son$="3608" ELS 
E IF octa=1 THEN son$="1804" ELSE I 
F octa=2 THEN son$="902 " ELSE IF 0 
cta=35 THEN son$="451 " ELSE IF octa 
=4 THEN son$="225 " ELSE IF octa=5 
THEN son$="113 " ELSE son$="56 " 
2200 GOSUR 2600:GO0SUB 2630:LOCATE 2 
9,23:FRINT "DO# "::RETURN 

2210 IF octa=0 THEN son$="3405" ELS 
E IF octa=1 THEN son$="1703" ELSE I 
F octa=2 THEN son$="851 " ELSE IF a 
cta=3 THEN son$="426 " ELSE IF acta 
=4 THEN son$="213 " ELSE IF octa=5 


3VP 


X0 


>HU 


EA 


BE 


#QY 


?6Y 


AH 


>GÙ 


a 


>A6 


THEN son$="106 " ELSE son$="5z 
2220 GOSUE 2600:60SUB 2630: LOCATE 
J,23:PRINT "RE "s:RETURN 

2230 IF octa=0 THEN son$="3214" ELS 
E IF octa=1 THEN son$="1607" ELSE I 
F octa=2 THEN son$="804 " ELSE IF o 
cta=3 THEN son$="402 " ELSE IF octa 
=4 THEN son$="201 " ELSE IF octa=5 
THEN son$="100 " ELSE son$="50 " 
2240 GOSUB 2600:G0SUB 2630: LOCATE 2? 
J,23:FRINT "MIb "::RETURN 

2250 IF octa=0 THEN son$="3074" ELS 
E IF octa=1 THEN son$="1517" ELSE I 
F octa=2 THEN son$="758 " ELSE IF 0 
cta=3 THEN son$="179 " ELSE IF octa 
=4 THEN son$="190 " ELSE IF octa=5 
THEN son$="95 " ELSE son$="47 " 
2260 GOSUR 2600:G0SUB 2630: LOCATE 2 
J,23:PRINT "MI "3:RETURN 

2270 IF octa=0 THEN son$="2863" ELS 
E IF octa=1 THEN 5on$="1432" ELSE I 
F octa=2 THEN son$="716 " ELSE IF 0 
cta=3 THEN son$="358 " ELSE IF octa 
=4 THEN son$="179 " ELSE IF octa=5 
THEN son$="89 " ELSE son$="45 " 
2280 GOSUB 2600:G0SUR 2630:LOCATE 2 
5,23:PRINT "FA  "::RETURN 

2290 IF octa=0 THEN son$="2703" ELS 
E IF octa=1 THEN son$="1751" ELSE I 
F octa=2 THEN son$="6786 " ELSE IF 0 
cta=3 THEN son$="338 " ELSE IF octa 
=4 THEN son$="169 " ELSE IF octa=5 
THEN son$="84 " ELSE son$="42 " 


2300 GOSUB 2600:G0SUB 2630:LOCATE 2 > 


9, 23:PRINT "FA# "3: RETURN 


310 IF octa=0 THEN son$="2551" ELS > 


E IF octa=i THEN son$="1276" ELSE I 
F octa=2 THEN son$="658 " ELSE IF 0 
cta=3 THEN son$="319 " ELSE IF octa 
=4 THEN son$="159 " ELSE IF octa=5 
THEN son$="80 " ELSE son$="40 " 
2320 GOSUE 24600:G0SUB 2630:LOCATE 2 
J,23:PRINT "SOL "3; : RETURN 


2330 IF octa=0 THEN son$="2408" ELS à 


E IF octa=i THEN son$="1204" ELSE I 
F octa=2 THEN son$="602 " ELSE IF 0 
cta=3 THEN son$="301 " ELSE IF octa 
=4 THEN son$="150 " ELSE IF octa=5 
THEN son$="75 " ELSE son$="38 " 


2340 GOSUB 2600:G0SUB 2630:LOCATE 2 > 


3,23:PRINT "GOL#";:RETURN 


2350 IF octa=0 THEN son$="2273" ELS ; 


E IF octa=1 THEN son$="1136" ELSE I 
F octa=2 THEN 50n$="568 " ELSE IF 0 
cta=3 THEN son$="284 " ELSE IF octa 
=4 THEN son$="142 " ELSE IF octa=5 

THEN son$="71 " ELSE son$="36 " 


>1X 


}GV 


Se 


a 


AI 


GA 


>AF 


?GL 


AU 


?GH 


ua 


rs 
—| 


2360 GOSUB 2600:G0SUB 2630:LOCATE 2 


S,23PRINT "LA “3: RETURN 
2370 IF octa=0 THEN son$="2145" ELS 
E IF octa=i THEN son$="107" ELSE I 
F octa=2 THEN son$="536 " ELSE IF © 
cta=3 THEN son$="268 " ELSE IF octa 
=4 THEN son$="174 " ELSE IF octa=5 
THEN son$="67 " ELSE sont="54 " 
2380 GOSUB 2600:G0SUB 2630:LOCATE 
LÉ 22:PRINT "SIb “2: RETURN 

2390 IF octa=0 THEN son$="2025" ELS 
E IF octa=1 THEN son$="1012" ELSE I 
F octa=2 THEN son$="506 " ELSE IF o 
cta=3 THEN son$="253 " ELSE IF octa 
= THEN son$="127 " ELSE IF octa=5 
THEN son$="65 " ELSE son$="52 
2400 GOSUB 2600:G0SUB 2636: LOCATE 2 
D423:PRINT "SI "::RETURN 


2410 IF octa=0 THEN son$="1911" ELS ; 


E IF octa=1 THEN son$="956 " ELSE I! 
F octa=2 THEN son$="478 " ELSE IF o 
cta=3 THEN son$="259 " ELSE IF octa 
=4 THEN son$="119 " ELSE IF octa=5 
THEN son$="60 " ELSE son$="zü 
2420 GOSUR 2600:G0SUB 2630: LOCATE 2 
J,23:PRINT "DO ";:RETURN 


2436 IF octa=0 THEN son$="1804" ELS >Zz 


E IF octa=1 THEN son$="902 " ELSE I 
F octa=2 THEN son$="451 " ELSE IF 0 
cta=3 THEN son$="225 " ELSE IF octa 
=4 THEN son$="113 " ELSE IF octa=5 
THEN son$="56 " ELSE son$="28 ‘ 
2440 GOSUB 2400:G0SUB 2630:LOCATE ? 
J,23:PRINT "DO# ";: RETURN 


2450 IF octa=0 THEN son$="1703" ELS : 


E IF octa=i THEN son$="851 " ELSE I 
F octa=2 THEN son$="4286 " ELSE IF 0 
cta=3 THEN son$="213 " ELSE IF octa 
=4 THEN son$="106 " ELSE IF octa=5 
THEN son$="53 " ELSE son$="27 " 
2460 GOSUB 2600:GO0SUB 2630:LOCATE 2 
J,23:PRINT "RE "5: RETURN 


2470 IF acta=0 THEN son$="1607" ELS > 


E IF octa=1 THEN 5on$="804 " ELSE I 
F octa=2 THEN son$="402 " ELSE IF o 
cta=3 THEN son$="201 " ELSE IF octa 
=4 THEN son$="100 " ELSE IF octa=5 
THEN son$="50 " ELSE son$="25 


2480 GOSUB 2600:60SUB 2630:LOCATE 2 ; 


9,23:PRINT "MIb ";:RETURN 

2490 IF octa=0 THEN son$="1517" ELS 
E IF octa=i THEN son$="758 " ELSE I 
F octa=2 THEN son$="379 " ELSE IF 0 
cta=3 THEN son$="190 " ELSE IF octa 
=4 THEN son$="95 " ELSE IF octa=5 
THEN son$="47 " ELSE son$="24 " 
2500 GOSUB 2600:G60SUB 2630: LOCATE 2 


33 


GR 


AJ 


2 :66 


#iN 


GC 


36V 


ee 
r- 
Cu 


se 
4 
Cu 


se 


G6D 


ZA 


se 


>6X 


SZ PRINT MI "3 :RETURN 


2510 IF octa=G THEN son$="1452" ELS :7k 


E IF octa=i THEN son$="716 " ELGE I 
F octa=2 THEN son$="358 " ELSE IF o 
cta=5 THEN sont="179 " ELSE IF octa 
=4 THEN son$="89 " ELSE IF octa=5 
THEN son$="45 " ELGE son$="22 
2520 GOSUR 2600: GOSUB 2650:LOCATE 2 

423: FRINT "FA "5: RETURN 
2530 IF octa=0 THEN son$="115{" ELS 
E IF octa=i THEN son$="658 " ELSE I! 
F octa=2 THEN son$="338 " ELSE IF 0 
cta=3 THEN son$="169 " ELSE IF octa 
=4 THEN son$="84 " ELSE IF octa=5 
THEN son$="42 " ELSE son$="21 " 
2540 GOSUR 2600:60SUB 2630: LOCATE 7 
S,23:PRINT "FA# "3: RETURN 
2550 IF octa=0 THEN son$="1276" ELS 
E IF octa=i THEN son$="602 " ELSE I 
F octa=2 THEN son$="319 " ELSE IF 0 
cta=3 THEN son$="159 " ELSE IF octa 
=4 THEN son$="80 " ELSE IF octa=5 
THEN son$="40 " ELSE son$="20 ‘ 
2560 GOSUB 2600:G60SUB 2630:LOCATE 2 
SE 23:PRINT "SOL ":: RETURN 

2570 IF octa=0 THEN son$="1204" ELS 
E IF octa=1 THEN son$="568 " ELSE I 
F octa=2 THEN son$="301 " ELSE IF o 
cta=3 THEN son$="150 " ELSE IF octa 
=4 THEN son$="75 " ELSE IF octa=5 
THEN son$="38 " ELSE son$="19 " 
2580 GOSUR 24600:G0SUB 2630:LOCATE 2 
9,23:PRINT "SOL#":: RETURN 
2590 son$="0 
650:LOCATE 25,23:PRINT "BLAN": 
RN 
2600 son=VAL (son$) 


:RETU 


2610 IF son=û THEN SOUND 4,0,duree, > 


0,envo,ento:SOUND 1,0, duree, Ü,envo, 
ento:SOUND 2,0, duree,0,envo.ento:RE 
TURN 


2620 SOUND 4,5son, duree, volu,envo,en : 


to: SOUND {,5on-1,duree, volu-2,envo, 
ento:SOUND 2,son+1, duree, volu-i,env 
o,ento:RETURN 

2630 LOCATE 25,24:PRINT son$: :RETUR 
N 


2640 notej=notej+i:IF notej=notel+1 : 


THEN notej=notej-1:G0T0 2680 


2650 note$inotej)=son$:duree(notej) > 


=duree: volu(notej)=volu:envo{notej} 
=envo:ento{(notej)=ento 


2660 LOCATE 1,1:PRINT notej::LOCATE : 


1,3:PRINT notel-notej: : RETURN 

2670 PLOT 304,392,en:DRAW 336,392: D 
RAW 336,380: DRAW 332,388: DRAW 312,3 
88:DRAH 312,374: DRAW 328,372: DRAW 3 


“:GOSUB 2600:GOSUB 2 : 





6H 


>1C 


>GN 


YR 


?6F 


EX 





12,370: DRAW 312,356: DRAN 332,356: DR 

AW 336,364: DRAW 336,352: DRAW 304,35 

2:DRAW 308,356: DRAW 308,388: DRAW 30 

4,392: RETURN 

2680 PEN 1:LOCATE 2,6:PRINT "Plus d 

e place, mec !";CHR$(7);:LOCATE 2,8 

#PRINT "Appuye sur °Z8":WHILE INKEY 
(71) €>0:WEND:G60SUB 2690: en=0: G0SUB 

2670:enri=0:60T0 1610 

2690 FOR t=6 TO B:LOCATE 2,t:FRINT 

SPACES$ (29) :NEXT t:RETURN 

2700 IF notej=0 THEN PEN 1:LOCATE 2 KL 
56:PRINT "J'peux pas !"::LOCATE 2,8 
PRINT "Aucune note en m"+CHR$(92)+ 

“noire !";:FOR t=1 TO 2000:NEXT t:6 

OSUB 2690:60T0 1610 

2710 LOCATE 2,6:PRINT "ECOUTER"; : 60 
SUB 3310:G60SUB 2690 

2720 PEN 1:LOCATE 2,6:PRINT "Attent 
ion les oreilles !":; 

2730 FOR t=1 TO note) 

2740 son$=note$(t) :duree=duree(t):v 

olu=volu(t):envo=envo(t) :ento=ento( 
t) 

2750 GOSUB 2600:NEXT t:GOSUB 2690 
2760 RETURN 

2770 IF notej=0 THEN PEN 1:LOCATE 2 
,6:PRINT "J'peux pas !";:LOCATE 2,8 
PRINT "Aucune note en m"+CHR$(92)+ 
"moire !"5:FO0R x=1 TO 2000:NEXT x:6 

OSUB 2690:RETURN 

2780 LOCATE 2,6:PRINT "SAUVER"::605 >YA 

UB 3310:G60SUB 2690 

2790 PEN 1:LOCATE 2,6:PRINT "Nom du >RV 
fichier:";:LOCATE 2,7:PRINT "(8 ca 
r. maxi.)": 

2800 LOCATE 2,8: INPUT "",nom$ 

2810 IF nom$="" THEN GOSUR 2690:RET 

URN 

2820 IF LEN(non$)>8 THEN PRINT CHR$ DET 
(7);:60SUB 2690:60T0 2790 

2830 GOSUB 2690:PEN 1:LOCATE 2,6:PR >MG 
INT "ASCII ou BASIC ? (A/B)'";, 

2840 IF INKEY(54)=0 THEN PRINT " Ba >TY 

sic":60T0 3000 

2850 IF INKEY(69)=0 THEN PRINT " As >TD 

cii":60T0 2870 

2860 GOTO 2840 

2870 LOCATE 2,6:PRINT "Sauvegarde e 

n cours..."s 

2880 nom$=nom$+", MUS" 


>YD 


2NR 
V1 


2890 OPENOUT "!"+non$ >PA 
2900 PRINT #9,note)j >NC 
2910 FOR t=1 TO notej >PV 


2920 PRINT #9,note$(t) 
2930 PRINT #9,duree(t) 
2940 PRINT #9,volu(t) 





2950 PRINT #9,envo(t) )QL 
2960 PRINT #9,ento(t) > 
2970 NEXT t >XE 
2980 CLOSEOUT ?ZK 
2990 LOCATE 2,8:FRINT "OK !";:FOR t >VD 
=1 TO 1000:NEXT t:G0SUB 2690:60T0 1 

610 

3000 LOCATE 2,6:PRINT "Sauvegarde e >Y] 
n cours..."; 

3010 nom$=nom$+". BAS" >PC 
3020 OPENOUT "!"+nom$ >PK 
3030 FOR t=1 TO notej >PN 


3040 PRINT #9,t#10; "DATA": VAL (notes 
(t));","sdureelt);","svolu(t);","se 
nvo(t);","sento(t) 

3050 NEXT t ?WE 
3060 1=notej#10+10 >MY 
3070 PRINT #9,1:"ENV 1,10,-15,0.5,3 >QC 
,9,12,15,-1,10" 

3080 PRINT #9,1+10;"ENV 2,15,1,1,15 >QA 
,10,15,1,-1,12" 

3090 PRINT #9,1+20; "ENV 3,20,15,1,5 >TC 
,710,40,5,13,15" 

3100 PRINT #9,1+303 "ENV 4,10,2,15,1 >PX 
0,-1,2,30,3,5" 

3110 PRINT #9,1+40:"ENV 5,10,1,5,15 >GB 
st; l" 

3120 PRINT #9,1+50; "ENV 6,15,3,1,1, >GH 
-1,15" 

3130 PRINT #9,1+603"ENV 7,5,-30,1,1 >RE 
5,-10,20,93,1,10" 

3140 PRINT #9,1+703 "ENV 8,1,5,15,13 >H6 
51,19" 

3150 PRINT #9,1+803"ENV 9,15,35,1,5 RU 
.8,-10,5,1,5,1" 

3160 PRINT #9,1+903:"ENT 1,2,-15,0,5 >TB 
,9,-19,10,1,-1,5" 

3170 PRINT #9,1+1003"ENT 2,15,-20,1 >MP 
3,9,-19,10" 

3180 PRINT #9,1+110:"ENT 3,1,3,10,1 >QX 
5,1,1,90,-1,30" 

3190 PRINT #9,1+120; "ENT 4,10,-2,15 KZ 
,10,-1,5" 

3200 PRINT #9,1+130;"ENT 5,1,15,1,1 >PC 
15,10,6,-5,1" 

3210 PRINT #9,1+140; "ENT 6,1,12,1,1 DJE 
5,-10,1" 

3220 PRINT #9,1+150; "ENT 7,1,30,1,5 RG 
0,5,10,5,-15,20" 

3230 PRINT #9,1+160; "ENT 8,30,-1,8, >Q6 
15,4,5,10,-1,1" 

3240 PRINT #9,1+1703; "ENT 9,1,-50,1, UF 
15,1,15,20,-15,5" 

3250 PRINT #9,1+180; "FOR t=1 TO";no >GU 
te)j 

3260 PRINT #9,1+190;"READ note, dure >GB 


?YX 


e,volu,envo,ento" 


34 


3270 PRINT #9,1+200; "SOUND 4,note,d >JZ 
uree, volu,envo,ento:SOUND 1,note-i, 
duree, volu-2,envo,ento: SOUND 2, note 

+1, duree, volu-1,envo,ento" 

3280 PRINT #9,1+2103;"NEXT t" JW 
3290 CLOSEOUT ZE 
3300 LOCATE 2,8:PRINT "OK !"3:FOR t >VN 
=1 TO 1000:NEXT t:60SUB 2690:G0T0 1 

610 

3310 PEN 1:LOCATE 2,8:PRINT "T'es 5 >DX 
"HCHR$ (64)+"r 7 (O/N)"'; 

3320 IF UPPERS(INKEY$)="0" THEN PRI >LV 
NT " Oui":;:G0SUB 2690:RETURN 

3330 IF UPPERS(INKEYS)="N" THEN PRI NF 


NT " Non'";:60SUB 2690:60T0 1610 


3340 GOTO 3320 ?MF 
3350 LOCATE 2,6:PRINT "CHARGER"; :60 >ZH 
SUR 3310:G0SUB 2690 

3560 LOCATE 2,6:PRINT "Nom du fichi >NZ 
er:"s 

3370 LOCATE 2,7:PRINT "(8 car, maxi ?HK 
lis 

3380 LOCATE 2,8: INPUT "",nom$ >XK 
3390 IF nom$="" THEN GOSUB 2690:RET >FB 
URN 

3400 IF LEN(nom$)>B THEN PRINT CHR$ >EF 
(7);:60SUB 2690:60T0 3360 

3410 GOSUB 2690:PEN 1:LOCATE 2,6:PR >UZ 
INT "Chargement en cours...";: 


3420 nom$=nom$+". MUS" >0H 
3430 OPENIN "!"+nom$ >NX 
3440 INPUT #9,note)j >NF 
3450 FOR t=1 TO note; >PV 
3460 INPUT #9,note$(t) >QX 
3470 INPUT #9,duree(t) >RU 
3480 INPUT #9,volu(t) >QD 
3490 INPUT #9,envo(t) >QP 
3500 INPUT #9,ento(t) >QD 
3910 NEXT t ?WF 
3520 CLOSEIN >MA 
3530 LOCATE 2,8:PRINT "OK !"32FO0R t KL 


=1 TO 1000:NEXT t:G0SUB 2690:PEN 3: 
LOCATE 1,1:PRINT notej::LOCATE 1,3: 
PRINT notel-notej;:PEN 1:60T0 1610 
3540 GOSUB 2690:PEN 1:LOCATE 2,6:PR >KH 
INT "BASIC ou CP/M ? (B/C)"; 

3390 IF INKEY(54)=0 THEN PRINT " Ba )CM 
sic":60SUB 3580:CALL 0 

3560 IF INKEY(62)=0 THEN PRINT " CP >7F 
/M":G0SUB 3580: üCPM 

3570 GOTO 3550 >NF 
3580 PEN 3:LOCATE 2,B:PRINT “Au rev >WN 
oir et "+CHR$(59)+" bientot !“; 

3590 FOR t=1 TO 1000:NEXT t >UQ 
3600 FOR t=400 TO O STEP -2:PLOT 0, >KN 
&, INT (RND#4) :DRAW 640,t:NEXT t 


3610 RETURN )FD@ 


1e 











LOGICIEL DU MOIS 
CRASH GARETT 


DOSSIER SPÉCIAL : 
LES EDUCATIES 


ET TOUIESLES 
NOUVEAUTES, à 
PUNOS, 





MENSUEL N° 20 { 
AVRIL/MAI 1988 


M2817- 20-14,00F 


379281/7014000 00200 


PONT le NUE 








INFORMATIQUE 


COMMUNICATION 
DIALOGUE 36135 MHZ 


Nous venons d'apporter de nouvelles modifications à notre serveur. 
Désormais, CHRISTOPHE est à votre disposition tous les jours pour le dialogue. 
Vous pouvez poser vos questions en direct. 


De nouvelles rubriques arrivent ! 


TOUTES NOS REVUES 


Savoir comment nous joindre, les sommaires, 


les infos. 
SON EnIAeNSS 


Une nouvelle façon de poser les questions et de 
voir les réponses faites ! 


COAST) NON el 


C'est en moyenne ce que vous trouvez sur le ser- 
veur. De quoi faire votre choix ! 


BOITE AUX LETTRES 


Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM - 
ARCADES -— AMSTAR - PCOMPATIBLE - MEGAHERTZ 
CPC REDACT - ASTROLOGIE P. 


Be EU: 


Christophe en direct tous les jours avec vous | 


REVENDEURS 


Certains revendeurs français disposent d'un accès 
gratuit pour leurs promotions. 


Mean e BUT 


La rubrique sur nos productions avec la possibilité de 
commander 


BRETAGNE EDIT'PRESS 


Désormais vous trouverez sur le serveur les nouveautés 
diffusées par cette société. 


ReNeNee,:- 


L'horoscope 1988 mails aussi depuis peu le mensuel du 
15 au 15 du mois. 


Au téléphone. 15 minutes coûtent en moyenne 55 francs. 
Par minitel, il vous en coûte pour le même temps 15 francs. 


LE BON CHOIX 3615 MHZ 
NOUVELLE VERSION 





